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MICRO-80 



** ABOUT MICRO-80 ** 
EDITOR: Ian Vagg 

ASSOCIATE EDITORS: 

SOFTWARE: Peter Hartley 

HARDWARE: Edwin Paay 

MICRO-80 is the only Australian monthly magazine devoted entirely to the Tandy 
TRS-80 microcomputer and the Dick Smith System 80. It is available by 
subscription, $2*1.00 for 12 months or by mail order at $2.50 per copy. A 
cassette containing all the programs in each month's issue is available for an 
additional $3-50 or a combined annual subscription to both magazine and cassette 

is available for $60.00. Special bulk purchase rates are also available to 
computer shops etc. Please use the form in this issue to order your copy or 
subscription. 

The purpose of MICRO-80 is to publish software and other information to help 
you get the most from your TRS-80 or System 80 and their peripherals. MICRO-81 
is in no way connected with either the Tandy or Dick Smith organisations. 



#* 



WE WILL PAY YOU TO PUBLISH YOUR PROGRAMS ** 



Most of the information we publish is provided by our readers , to whom we pay 
royalties. An application form containing full details of how you can use your 
TRS-80 or System 80 to earn some extra income is included in every issue. 

** CONTENT ** 

Each month we publish at least one applications program in Level I BASIC, one 
in Level' 2 BASIC and one in DISK BASIC (or disk compatible Level 2). We also 
publish Utility programs in Level 2 BASIC and Machine Language. At least every wH 
second issue has an article on hardware modifications or a constructional 
article for a useful peripheral. In addition, we run articles on programming 
techniques both in Assembly Language and BASIC and we print letters to the 
Editor and new product reviews. 

** COPYRIGHT ** 

All the material published in this magazine is under copyright. That means 
that you must not copy it, except for your own use. This applies to 
photocopying the magazine itself or making copies of programs on tape or disk. 

** LIABILITY ** 

The programs and other articles in MICRO-80 are published in good faith and we 
do our utmost to ensure that they function as described. However, no liability 
can be accepted for the failure of any program or other article to function 
satisfactorily or for any consequential damages arising from their use for any 
purpose whatsoever. 
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****** EDITORIAL ****** 

This is our first international edition. MICRO-80 magazine is now being 
distributed in the U.K. and we would I ike to welcome al I our new U.K. readers 
and te I I you a I ittle o-f our background and what we stand for. 

MICRO-80 commenced some 10 months ago in Austral ia. By now it wil I be obvious 
that we are not a glossy, big-budget publ ication. Our aims, first and 
foremost, are to support users of the Tandy TRS-80 microcomputer and the more 
recent System 80 microcomputer or, as it is known in Britain, the Uideo Genie. 
The peopie who produce MICRO-80 are '80 enthusiasts ('80 is our generic term 
for the TRS-80/Sy stern 80/Uideo Genie, it saves ink and is easier to read than 
that mouthful ). Much of the material we publ ish is written by our readers, 
for which we pay a publ ication fee. You won' t make your fortune writing for 
MICRO-80, our budget is not big enough for that but you wil I earn some useful 
extra income which you can point to in those periodic arguments with your 
spouse when the inevitable question comes up "what use is that wretched 
computer, anyway?" 

Significantly, many of our subscribers who write-in, commence by saying "I am 
a member of MICRO-80". That is the atmosphere we want to fester, a large, 
open club where we can all exchange information, programs etc. to our mutual 
benef it . 

To help defray the expenses of producing this magazine, we have a sister 
business called MICRO-80 PRODUCTS. MICRO-80 PRODUCTS publishes software 
written by our readers, at sensible prices, and imports goods into Australia 
for resale by mail order, again at very sensible prices. For the moment, we 
are not launching MICRO-80 PRODUCTS in the U.K. If any of our U.K. readers 
would like to purchase items from MICRO-80 PRODUCTS you should write to us in 
Australia, direct. The easiest way to pay would be by Bare I aycard/UISA or 
ACCESS, both of which we honour. That way, we can charge the exact exchange 
rate and airmail cost to your credit card. If you prefer to pay by cheque or 
money order, that is alright too. Simply make it payable in sterl ing at an 
exchange rate of Aus.$2.07 per pound sterling and add 1.00 pound for air-mail 
postage per program or 2.00 pounds for a book. If the demand from the U.K. 
for MICRO-80 PRODUCTS goods is great enough we wil I , of course, make 
arrangements for direct distribution there. 

We would be happy to publ ish programs, articles, etc. written by our U.K. 
readers on the same terms as apply to Austral ian readers. We would also I ike 
to establish a regular U.K. correspondent to keep us all up-to-date with 
happenings in Britain vis-a-vis '80 microcomputing. If you would like to 
contribute, please write directly to us in Australia. For the moment, all 
editorial matters will be dealt with in Australia, our U.K. address is a sales 
off i ce on I y . 

MODEL III TRS-80 

Those of us with keen eyesight and an enquiring mind (no, not the Editor but 
Eddy Paay!) will have noticed something unusual on page 3 of the new Tandy 
Australia catalogue. There, in a tiny colour picture, about the size of a 
postage stamp, is a strange looking computer with a keyboard very much like 
the Model I except that it is integral with the monitor and, to the right of 
the monitor screen there are two 5-1/4 inch disk drives built-in. Naturally, 
we contacted Tandy to find out all about it. 

This is a picture of the TRS-80 Model III, which has just been released in the 
U.S.A. (we are not sure if any have actually been delivered yet) and should 
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come to Australia in January 1981. In Tandy's words, it is designed to fit 
between the Model I and Model II and is aimed at the smal I businessman. 
Interestingly enough, it se i I s in the U.S.A. in basic, LI--XK form, for 3599 
which compares with a price of 5499 fo-~ the Model I L1/4K machine. The 
essential difference is that the expansion intsrfece is built in, so that you 
do not have to buy extra boxes to up-grade o '• I the way to disks which, 
incidentally, at 3 40 track dual -density drives. One other difference is that 
the BfiSIC interpreter now occupies 14K, i.e. it rills up that memory space 
around 9000H that is reserved in the Model I memory map as being for "future 
DMA Devices". What additional goodies may ba in that extra 2K of ROM, we do 
not yet know. Apparently, it will be possible to convert Model I software to 
run on the Model III. Oh, one other rhino, the Model III has two cassette 
speeds, 500 band and 1500 band. Incidental !y, there is a new, square device 
to the right of the numeric key pad - could that be a built-in cassette deck a 
la System 80/Uideo Genie? 

MODS TO THE SYSTEM 80/UIDEO GENIE. 

Despite Jim Rome' s (Dick Smith Electronics Technical Director) assurances in 
ail his Technical bulletins that very few pre-recorded cassettes refuse to.,, 
load in-.o the System 80, he has described how you can add a volume control %cv 
the cassette deck and modify the LED to act as a ceck-levei indicator. 
Apparently, this has not fallen on deaf ears in Hong Kong and before long, 
System 80' s and presumably Uideo Genies, will be shipped with a si ide tups 
volume control on the keyboard panel and a L"J meter, no less, mounted in rhe 
sloping panel adjacent to the tape counter. We have installed the volume 
control /LED mod for one of our readers in Adelaide, with very good results so 
these mods should cl ear up the cassette loading problems once and for al I . 
Wei I done Dick Smith Electronics who, we are sure, has been the driving fores 
behind this improvement. 

Future shipments of System SB' s/Oideo Genies will also be fitted with the two 
missing keys, right arrow and CLEAR, so the most glaring examples of 
non -compat i b i I ity between the two famil ies of S0' s wil I disappear. 

TRS-80 2 CHIP ROM' s 

Tandy started shipping 2 chip ROM sets a few months ago. From one point of 
view it is surpr.sing tnat it was so long in coming, since the original A 
board was clearly designed to accept 2 chip ROM's. New that 2 chip ROM's ar e tf^ 
here, a few things have changed. First of al I , there ars two different sets " 
of ROM' s. 

Part Nos. 8049364 and 8043732 are for all except G boards and these ROM's 
still need to be used in conjunction with the XRX III loading modification. 

Part Nos. S044964 and 8044792 are for G boards and do not require the XRX III 
loading modification. The checksums for these latter two ROM's are: 

ROM A B078 
ROM B DA45 
ROM C 4006 



ROM A and ROM B are in the first chip, ROM C is in the second chip. One 
interesting/disturbing change in the most recent TRS-80' s shipped is that the 
character generator no longer has lower-case letters in it but instead, 
appears to have some Japanese characters. Suspicious souls that we are, we 
suspect that this is Tandy's way to foul-up the cheap, lower case mod. kits 
that are around. If that is the case, it is pretty dirty pool . 






ISSUE 10 (SEPTEMBER 1980) MICRO-80 PAGE 4 

TANDY' s LOWER-CASE MOD. 

We are not particularly enamoured with Tandy's pricing policy in Australia 
anyway, but its lower case Mod. kit must be one of the greatest rip-offs ewer. 
It consists of three IC's, two DIL sockets, a driver program (with bugs in it) 
on cassette, and some documentation. It sel Is for $99 + fitting. 

Two of the IC's are 2102L RflMs which Tandy itself sells for $4.95 each. The 
other is a character generator, i.e. a mask-prorammed ROM which is special ly 
made for the TRS-80 (as far as we know) but such ROMs general ly sel I for $7 - 
$9, let's say $10, to be generous. The two DIL sockets, Tandy sells for 60 
cents and G9 cents respectively and thQ cassette $1.95 say. There is a I ittle 
labour included too, in that the two RAM chips are soldered to each other 
pick-a-back and there are a couple of wires joining them to the character 
generator. Let's allow $10 for that labour, which is very generous 
considering that it wou Id be done in a factory. Finally, let us allow 8B cents 
for documentation. Therefore, the total value of the lower case mod kit at 
Tandy's normal prices is $3-4.00! That, Tandy sells to . you for $99, about 3 
times the sum of the individual prices which include their normal mark-up 
anyway. If that is not profiteering on a grand scale then we don't know what 
is. The key which enables Tandy to get away with this, of course, is the 
character generator. However, this wil I not be an obstacle for much longer as 
we are a I pedy making arrangements to obtain suppl ies of a suitable substitute. 
In the meantime, perhaps the decision-makers in Tandy will read this and feel 
so embarrassed that they wil I drop their price to a reasonable level (See, we 
said we were naive enthusiasts). 

TANDY' S ANSWER TO LAST MONTH' S COMPLAINTS 

You wil I remember that, one way and another, we had a few harsh words to say 
about some of Tandy's other policies last month. As promised then, we have 
provided Tandy with space to reply. Our first criticism related to the 
decision to oust TRS-80 Users group from Tandy stores (computer centres 
excepted). Tandy's reply is that Tandy Australia is simply following orders. 
The directive is world-wide and came from Fort Worth. 

The second criticism was made by Peter Hartley in an open letter in which he 
took Tandy to task over its apparent policy of removing all owner-fitted mods 
before servicing TRS-80's, then charging for the privilege. Tandy's reply is 
that it is their policy not to remove user-fitted mods unless the serviceman 
concerned considers that they are causing/aggravating the problem. It was 
pointed out that so many different mods have been made to TRS-80' s that it is 
virtual ly impossible for the serviceman to become famil iar with al I of them. 
In the case of Peter Hartley's machine, there were a lot of mods (true - Ed) 
and the serviceman obviously felt that these were causing the trouble. In the 
event, it turned out to be falty buffer IC's but by then it was too late. 

Well, there you have it, you have heard both sides of both stories and you 
must judge what is reasonable. (See also Input/Output). 

ON PRESENTATION OF MICRO-80 

This month, we have reverted to the production technique of a few months ago 
and have some mixed type-faces as well. We are sorry about this and assure 
you that it is a temporary state of affairs only. Next month, we should have 
a very much improved presentation with consistent type-face, photographic 
reduction and r ight- just if icat ion . All this will be done via our new Olivetti 
ET-121 daisy wheel typewriter which we have recently converted to interface 
with the '80. We will shortly be making these converted typewriters available 
for sale, with Olivetti's blessing so, if you are in the market for a fast (20 
cps ) quiet, automatic correcting typewriter that you can also drive from your 
computer, then be patient for just a little longer and you will be able to buy 
the MICRO-80 converted 01 ivetti ET-121 for under $2000. 
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CASSETTE PROBLEMS 

About the time we were producing last month's cassettes, our duplicator 
started to deuelop a fault. The plate holding the heads for the master 
cassette became looser and looser, unbeknown to us. This meant that signal 
strength varied and a number of bad tapes were produced. Other tapes produced 
at the same time were also affected. The duplicator is fully repaired now and 
working better than ever but, if you have a faulty tape, please send it back 
to us and we wi I I replace it, free of charge. 

** MELBOURNE COMPUTER SHOW ** 

MICRO-80 will be on stand 16S at the 8th World Computer Conference to be held 
in the Melbourne Exhibition Building from 14 - 19 October. We will have some 
interesting items on display including the SYSPAND 80 adaptor which provides 
your System 80 with a printer port and Tandy bus and our prototype Olivetti 
ET-121 conversion. You will also be able to see a Stringy Floppy demonstrated 
and a B51 bare drive. We will have our whole range of software with us 
including some interesting new programs. We are looking forward to meeting as 
many of our Victorian readers as possible, so' come along and make yourselves 
known. L>. 

- 00000 - 

***** READERS' REQUESTS ***** 

This column is a regular feature of MICRO-80. In it, we list all those 
articles, programs, etc. requested by our readers. We try to work our way 
through the list as time permits, but if you would like to contribute an 
article or program, look here for an idea of our readers preferences. 

** ARTICLES ** 

File handling on the '80 

Description of the functions performed by the Expansion Interface 

Reviews of '80 compatible printers 

Revieojs of commercially available software (including that produced by us!) 

Reviews of commercially available hardware 

How to SAUE onto Disk, programs such as Analogue clock and Touchtype 

A master index to the appropriate sections in the Tandy Manuals in Level I, 

Level II, DOS etc. 

** SOFTWARE ** 

GAME OF LIFE relocated to start at 7000H 

A m. I . program to enable the break key to work like RESET when using an 

expansion interface 

Stock market program 

Horse racing system 

"Files" program modified for 4SK system 

Morse code decoder 

Sub-routine Forum 

Program to "SET" non-graphical symbols 

** HARDWARE ** 

RS232 printer interface 

Interfacing the '80 to external hardware 

Review on the performance of I ine filters 

How to convert a black and white T.U. to a monitor 

Review of high resolution graphics mods. 

Real Time c I ock 

Radio Teletype/Morse interfacing 

RFI (Radio Frequency Interference) suppression 

- 00000 - 
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** G.T. BASIC ** part two of an occasional series 
by Peter G. Hartley. 

Last month we looked briefly at simple MATH in COMMAND MODE and NUMERIC 
UARIABLES. We also touched briefly on using the PRINT instruction. This 
month we' I I have our first look at the FOR / NEXT LOOP and go into more detail 
on PRINT statements. We'll also have a look at DATA STATEMENTS and introduce 
PROGRAMS. 



** THE AMAZING FOR / NEXT LOOP *♦ 

Wei I, this IS throwing the raw beginner in at the deep end. Lesson two, and 
already we have this funny thing called a LOOP. No, not an I.U.D., but a very 
powerful instruction. 

Let's assume that we want to print out the "twelve times table". Remember, we 
are stil I in the COMMAND MODE, and if you were to go through al 1 the fuss of 
entering the 12 seperate commands to generate (12*1), (12*2), (12*3) etc., 
we I I , there woul dn' t be any space I eft on the screen for al I the answers. 
What a FOR / NEXT loop does is solve the problem of getting the '80 to do 
something for a specified number of times, even though you only tell it what 
to do once 



F0RK=1T012:PRINTK:NEXT (in Leuel I 



F.K=1T012:P.K:N.K) 



will produce a list from 1 to 12. Now, we know that to multiply, we only have 
to use the "*" and the value, so lets try... 
F0RK=1T012:PRINTK*12:NEXT (in Level I- F. K. =1T012: P. K*12: N. K ) 

notice that in Level I, you have to specify the variable used in the loop 
when you use the NEXT. In Level II this is optional , which is rather more 
useful , as we wil I see later in the series. ) 

We II now, that worked fine - but it doesn't really tell you what's going on... 
fine for you and me, because we know what we wanted, but perhaps some I ittle 
labels and notices would help, so now try... 

CLS:PRINT"TWELUE TIMES TABLE" : F0RK=1T012: PRINTK; "TIMES 12 =";K*12:NEXT 

(for Level I P. "TWELVE TIMES TABLE": F.K.=1T0 12: P.K;" TIMES TWELUE 

=";K*12:N.K. 

That looks a lot better, doesn't it. 

O.K. Let' s take that I ine of instructions apart and see what we did. 

CLS clears the U.D.U. 

: end of instruction marker. 

PRINT just what it says. 

"TWELUE TIMES TABLES" 

as soon as the '88 sees the quotes, it knows 
that it is to treat what is inside the quotes 
as something to be PRINTED - not as something 
on which to perform mathematical miracles. 
By putting it in quotes, we turn in into what is 
cal led a STRING. 
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F0RK=1T012 



PRINT 
K 



NEXT 



"TIMES TWELUE =' 



K*12 



end of instruction marker. 

start counting from 1, and store the value in 

variable K. Do everything from this point on 

to the instruction NEXT, once each time K is 

INCREMENTED by one. The last time is when K=12. 

end of instruction marker. 

aga in . . . 

it isn't in quotes, so it is a variable, so 

print the number stored in K. 

stop printing - there is more to come on the 

same line immediately after what has just been 

pr inted. 

it is in quotes, so it is a string. The last 
instruction has not ended yet, so print it. 
stop - more to f o I low 

find the value of K, and multiply it by 12 - and 
as we are still doing the PRINT instruction - 
print the answer, 
end of instruction marker. 

Level II - find the last FOR statement and increment 
the appropriate variable. If it's bigger than 
the specified limit, stop and come back here. 
If it isn't bigger, start again from the first 
instruction following the FOR statement. 
Level I - increment the variable specified in the 
NEXT statement and if it is now bigger than the 
specified limit, stop and come back here. 
If it isn't bigger than the limit, start again, 
immediately after the FOR statement. 



** MORE THAN ONE LINE AT A TIME ** 

When we use the COMMAND MODE we are very restricted in the type of problem 
that we can set. We can only use one multiple statement line to tell '80 what 
to do, and we have just used the ":" to separate the statements. In Level II, 
we are restricted to about 248 characters for the instruction I ine. In Level 
I the problem is even greater, because we are limited to 78 characters. Part 
of the solution is to put the statements into the form of a PROGRAM. 

We can define a PROGRAM as being a series of instructions that are to be 
executed in a clearly defined sequence. 

If we accept this definition, we can also see that we can in fact execute muny 
programs by entering a whole series of separate statements while in the 
command mode. If you do this you will find that the '88 will remember any 
values that have been stored as NUMERIC UARIABLES. Unfortunately, what it 
will not remember is useful things like FOR / NEXT LOOPS, and other 
instructions that it has already executed, so the rest of the solution is to 
store the PROGRAM in the ' 88' s memory. 



Try K=100 

PRINTK 

K=K+1 

PRINTK 
f o I I ow i ng each 
that the '88 really does remember. 



instruction with an <ENTER> or a <NEW LINE>, and you will see 
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Try FORK=0TO10 

PRINTK 

NEXT 
and you will also see that the '80 really does forget. 

Our definition of PROGRAM said that the instructions had to be executed in a 
clearly defined order. To write a program into memory, we start each line 
with a number, to define the order. 
Try 10 FORK=0TO10 

20 PRINTK 

30 NEXT 

RUN 
following each line with <ENTER>, as before. Now type LIST<ENTER>. 
Amazing! ol' '80 remembered, and if you type RUN <ENTER> it will repeat the 
sequence again. 

Now, the numbers we used need not have been 10, 20 and 30. We could just have 
well have used 100, 200 and 300, or 1, 2 and 3. BUT, if we used 1, 2 and 3, 
and then discovered that we had left some instructions out, there would not be 
anywhere to insert them. 

Try 25 PRINT"IS FOLLOWED BY"; 

<ENTER> LIST <ENTER> and you will see that the extra line has been inserted 
into the correct place in the listing. So now you can add... 
3 CLS 

5 PRINT'THE NUMBER"; 
35 PRINT "WHICH IS FOLLOWED BY";K 
and 40 END 

which tidies everything up, and presents a new surprise for the beginners. 
The FOR / NEXT LOOP said "K=0TO10" and we have K having a value of 11. That 
deserves some explanation. 

Most versions of BASIC would have K equalling only 10 by the time the program 
got to line 35. However, the MICROSOFT BASIC increments the counter BEFORE 
testing the its value, so after any FOR / NEXT LOOP the value of the counter 
will be one increment past the specified end of the loop. That is important. 
Sometimes it is useful - sometimes a damn nuisence. Either way, remember this 
we I I . 



Last month I promised to show you how to speed up FOR / NEXT LOOPS by as much 
as 37*. Now this will not work in Level I, and the rule derived from this is 
not applicable in Level I, but Level II users should try the following, and 
t ime the runs . 

TEST ONE 

10 FORK=0TO10000: NEXT: PRINT "FINISHED" 

TEST TWO 

10 DEFINTK:FORK=0TO10000:NEXT:PRINT"FINISHED" 

O.K? 

* G.T.BASIC RULE TWO - WHENEUER POSSIBLE - USE AN INTEGER * 

Don't worry if you are a raw beginner, and don't understand INTEGER, because 
we'll be discussing this term in a later article. 
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Now that we know how to put a program into memory, we need to know how to wipe 
it out again. One magic word - "NEW". Try it. 

** TIDYING UP PRINT STATEMENTS ** 

Type in the following... 

10 CLS 

20 FORK=1TO100 

30 PRINTK 

40 NEXT 

50 END 
ending each line with <ENTER> or <NEW LINE>... and then RUN <ENTER>. 

Now that looks pretty untidy, doesn't it. In fact, you cannot see any more 
than the last 12 numbers. Now type in a new line 30... 

30 PRINTK, 
and then RUN < ENTER >. 

Better? What has happened is this... the comma, after the PRINT Ky] 

instruction, tells the '80 to move along to the next PRINT ZONE, and then wait'! 
there for the next PRINT operation. There are eight print zones, right across 
the U.D.U. If you have Level II, you can move the CURSOR (that's the little 
line thct shows where the next character will print on the screen) to the 
start of the next PRINT ZONE by pressing the right arrow key. If you have a 
System '80, you haven't got a right arrow key, and will have to press <SHIFT> 
<CNTRL> and <I> all at once. (This also works with the Tandy Level II) 

Try typing in another version of I ine 30... 

30 PRINTK; 
RUN < ENTER > 

and you will see yet another alternative. The semi-colon tells the '80 to 
hold its position on the U.D.U. and wait for the next PRINT instruction. In 
actual fact the '80 leaves a space in front of the value of any variable. 
This is to leave room for a negative sign, should it be required. It also 
leaves one space after the number, to stop the values running into one another 
on the screen. 

Incidently, the raw beginners amongst you have now discovered how to replace a{ 
I ine in a program. Just type a new I ine with the same number, and the old 
line gets replaced. The replacement does not actually occur until you press 
<ENTER>, so if you should change you mind about replacing the line you can 
either backspace the replacement line away, and do something eise, or simply 
press <BREAK> and the '80 wil I ignore what you were typing. Level II users 
have a whole wealth of other EDITING facilities, but these will be the topic 
of later discussions. 

** DATA STATEMENTS AND HOW TO USE THEM ** 

A DATA STATEMENT is an easy method of storing information, within a program, 
so that the '80 con "look up" the data each time the program is run. This 
saves you from having to INPUT the data each time. 

#*#*♦*#* WARNING #**»**#* 

There are three known "bugs" in the MICROSOFT Level II BASIC. One uf 
these relates to the reading of data from data statements. In some 
circumstances, on some Level II units only, the READ function fails to operate 
properly. Good practise is as follows... 
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IN ANY LEUEL II PROGRAM THAT READS DATA PROM DATA STATEMENTS, ALWAYS 
MAKE THE FIRST PROGRAM LINE READ AS FOLLOWS... 

10 POKE 16553,255 

THIS LINE SHOULD BE REPEATED AFTER ANY "INPUT#-1" STATEMENT IF DATA IS 
STILL TO BE READ OR REREAD 

This will ensure that the function always works as intended. 

Now try . . . 

10 POKE 16553,255 (Level I users leave this line out.) 

20 DATA 1, 3, 5, 7, 9, 2, 4, 6, 8, 10 

30 CLS 

40 PRINT "ODD NUMBERS BETWEEN 1 AND 10 ARE "; 

50 F0RK=1T05 

60 READA 

70 PRINTA; 

80 NEXT (Level I - use N.K ) 

80 PR I NT "EVEN NUMBERS ARE "; 
100 F0RK=1T05 
110 READA 
120 PRINTA; 

130 NEXT (Level I - use N.K ) 

140 END 
RUN < ENTER > 

Pretty neat, eh? Next time we will discuss exactly what happened with that 
DATA STATEMENT, and use some of what we have learned to start creating a 
Hex-to-Decimal conversion routine. You will also be introduced to STRING 
UARIABLES, and I'll try to show some of the old hands that sometimes, some of 
the old Level I techniques can be faster than the sophisticated logic of Level 
II. 

Your letters, be they filled with praise, criticism or ten dollar notes, ar,e 
appreciated. This series is intended to provide a service to readers, and 
feedback is vital if this series is to prove successful. 
P.G.H. 



CONTINUED FROM PAGE 13 

(The graphical resolution on the TRS-80 is determined by the hardware in the 
machine. We have just taken delivery of a hardware modification board 
produced by Programme International in the U.S.A. We will shortly publish a 
review of this device - Ed. ) 

Letter from Mr. S.J. Stewart, St. James, N.S.W. 

I have a System-80. How do I load machine language programs from tape and run 

them? I have tried "SYSTREM "TITLE" etc. but have had no success. 

(In order to load a machine language program:: 

1. Type SYSTEM and press <NEW LINE> 

2. Answer the *? with the name of the program, press <NEW LINE> 

You should then get two asterisks in the top right hand corner as for a BASIC 
program but the right hand asterisk turns on for 4 seconds, off for 4 seconds 
on again for 4 seconds and so on. When the program has finished loading, *? 
will again be displayed on the screen. Type in / and press <NEW LINE> when 
the program should commence running. If the asterisks do not appear or do not 
flash as described or if one changes tp a C , indicating a Checksum error, 
then you have recorder/tape poblems - Ed) 

- OOOOO - 
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***** INPUT/OUTPUT ***** 

From: Mr. J. Grigg, West Geelong, Uic 

With reference to the article in your July issue; sound effects by Ron Sully. 
If any of your readers are experiencing trouble with a program incorporating 
sound effects; that is after running it, CSflUEing it and then, at a later 
date, trying to run it after CLOflDing. fill that is necessary to fix the 
program is to CLOflD it as it is and Poke 17129,220 and Poke 17130,67. This 
works as long as Line "0" has been filled with spaces in the first place. 

The sound effects program inserts machine coae into the information space; in 

this machine code there are some 0' s . This confuses the Basic Interpreter into 

thinking there are more I ines in the program as is recognised as an end of 

I i ne marker . 

It seems that upon CSflUEing the program, Loc . 17129 and 17130 are set to the 

first Location after the first encountered. Thus when we CLOflD again there 

is conf us ion . 

I hope this information mil I be of help to someone as I spent about 5 hours 

all told in finding it out. (by experimentation). 

From: R.D.Binzer, Glen Waver ley, Uic. 

I am responding to your August 1980 issue with reference to the "Open Letter 

to Tandy (Australia) by Peter Hartley. 

With due respect to Peter Hartley, his letter offers little other than an 

outpouring of complaint with no and I repeat no, reference to his directions 

to Tandy in the first instance. AM too often these days in all media areas 

there are instances of complaints with, in a lot of cases, no description of 

how the complaint arose and it seems easy to air a complaint, (instance 

publication of his letter) without necessarily knowing whether the customer or 

the supplier was at fault. 

We would all like something for nothing???, but the justification for whinging 

if we cannot get it can be debated. 

Peter answers his own initial question in the affirmative, possibly because 

that suits his argument. However, I feel reasonably sure. that had the vehicle 

referred to been recently purchased and was within its service period, it 

could quite easily have been referred back to him without repair, or 

alternatively repaired only upon his expl icit instructions. 

In these days of Consumer Protection and Trade Practice regulations there 

would be few if any supp I iers repair items that had been altered, or modified 

without explicit instructions from the customer. 

I do agree that if, as Peter describes, the brief and discourteous attention 

he received is accurate, then Tandy is certainly at fault, but again I repeat 

that Peter offers his complaint without reference to how the complaint arose 

in the first instance. 

In defence of Tandy, I offer that in the approximate 2-1/2 years it has taken 

me to "develop" from the original 4K Level 1 to 48K Level 11 Twin Disc, with 

the progressive add-in and conversion of memory, I have always found that the 

service, attention and help offered by both Tandy store and technical 

personnel to be courteous and attentive and could only commend Tandy's 

attitude. 

A recent "Glitch", which proved difficult to trace, offered on-site service, 

loaned components to complete a particular job on time and I could not have 

asked for any more courteous or attentive service and final correction of the 

prob I em. 

I do trust that Peter's problem has been overcome, perhaps he struck a bad day 

- we al I have them - we a I I make mistakes - this may have been one of Tandy's, 

but on my experience I could only doubt. 



ISSUE 10 (SEPTEMBER 1980) MICRO-80 PAGE 12 



From: Mr. B. Bussenschutt , Highbury, S.fl. 

May I make a further suggestion, that your readers may find helpful. 

From time to time there are a series of sub-routines that repeat from program 

to program. It might be of assistance if you could have a SUB-ROUTINE section 

that folk could contribute to. 

For instance, recently I was looking for a way to make a blinking cursor. The 

answer to this could be one of the sub-routines. I've also been looking for a 

way to SET a graphics unit that is not a 'block' but could be a "+" or a ".", 

so that graphs could be drawn with these. This would make the graphs easier 

to read where there are 2 or 3 on the screen - as in the Biorhythm program. 

Neither of these has been solved by me - but some of your experienced 

men/women may have. Also when are you going to have prorams available on disk 

for those of us without a recorder. Having to borrow a recorder is a bit of a 

hass I e . 

(We have put your suggestions into Readers Requests. We hope to be able to 
supply programs on disk within 2-3 months - Ed.) 

Letter from+ Mr. J.G. Descovich, Caloundra, Qld. 

I have fitted your 'Lower Case Modification' to my TRS-80, LII, 1SK and am 
very pleased with the results. I am also looking forward to Eddie Paay's 
shift key reversal. However, the access program gave a little trouble at 
first, perhaps some others may be saved the frustration. My machine stopped 
execution with an O.U. Error in line SO. After dithering about a bit, 
checking the program, re-reading instructions, etc. I finally tried inserting 
line IS ON ERROR GOTO70 as a last ditch stand. It worked and stays in my 
program. Keep up your good work, thanking you. 

From: K.L. Dansie, Broken Hill, NSW. 

I note that a number of users have loading problems with the System 80. 

Having investigated some local users' problems, with various makes of 

microcomputers I would like to offer the following. 

Opart from non-compatible commercial tapes the commonest causes of failure to 

I oad are : - 

(a) failure to advance tapes past the leader before commencing to CSflUE. I 
can find no reference to this point in the System 80 Manuals. In view of the 
prevalence of tapes with leaders this vital operatin cannot be stressed too 
strong I y . 

(b) failure to erase up to and slightly beyond the proposed starting point 
when recording over a previous program. This is dealt with in Section S. 1 of 
the System 80 Users Manual. Using this "overlapping" technique there seems to 
be no necessityfor the use of the bulk eraser recommended by David Lien. 
(Basic Computer Language - Radio Shack). 

One of the local '80 machines suffered from a dry-joint in the inbuilt 
recorder. The others appear to be working satisfactorily. 

The most puzzling loading problem was with an external Philips N2227 recorder, 
an excellent little machine which recorded O.K. but refused to load. fifter 
juggling volume and tone controls, examining wave-forms of output and tearing 
out lumps of hair, careful examination of the recorder circuit revealed thavt 
the output plug was reversed, the active lead being connected to the outer pin 
with the centre one earthed. 

Consequently, on connecting the recorder/System 80 harness the signal was 
effectively earthed through the recorder input plug. fin adaptor to reverse 
the output leads cured the trouble. But, N2227 owners, beware! 



\ 
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I am not connected with Dick Smith in any way but am merely an enthusiastic 
user of the System 80 which I have now mated with an Itoh 8300P Printer. 
Results so far are uery encouraging. 

INSTRUCTIONS FOR SWING SARGON 1 1 ON ESF WAFER by John Castle 

1. Switch on machine. 

2. Using SYSTEM, load the boot loader (Sargon). When second "*" appears, 
push reset button to return to BASIC. 

3. Enter - POKE 17565,0: POKE 17566,0: POKE 17567,0. This will cause RESET 
button to act normal ly after Sargon is loaded. 

4. Enter SYSTEM; Type /1742S. This will now load the rest of the program. 

5. After it is loaded, press RESET button - BASIC. 

6. SYSTEM followed by /12346 - initiate ESF. 

7.* Sargon II uses RESET button to return to Sargon. If you wish to preserve 
th is then : - 

Enter POKE 17565,34: POKE 17566,7: POKE 17561,64. 

8. To save on wafer (20' ):- 

nSAUE 1, 17123, 15572, 17562 

9. Only RUN Sargon II after it is loaded ( SAUED ) . 

* This step is optional . 

From Mr. R.N. Wall, Melbourne. 

Can you use the disk drive control I er interface that is suppi ied with the 
TRS-80 when using the 8 inch disk drive, or is a special interface required 
for driving 8 inch disk drives? 

f Some additional hardware is required to run an 8 inch disk drive on a 
standard Tandy expansion interface. These are available in the U.S.A. and are 
general ly mounted in the cable to the disk drive - Ed. ) 

From Mr. P. Chapman, Auckland, N.Z. 

The statement at the top of page 26 in the June Issue of MICRO-88, that one 

cannot effect the Level I + II modification if Level I is resident in two 

chips, is not correct. This is done by proceeding exactly as laid down in the 

magazine except that both chips are placed in Z34 socket soldering one above 

the other in pick-a-back fashion. This works fine as I have proved in my own 

TRS-80. 

(Thank you Mr. Chapman. Readers please note, we have not tried this 

modification ourselves and therefore can accept no responsibility for its 

performance. - Ed. ) 

From G.L. Paterson, P.O. Box 437, Atheron, Qld. 4883. 

Could MICRO-80 provide an open "vetting" service to analyse and improve 

programs written by inexperienced readers, especial ly in the technical fields. 

If this is not in your area, can you recommend anyone who might be able to 

take on such tasks for we micro users? 

(I am afraid that MICRO-80 is not in a position to offer such a service. 

Perhaps some of our readers could, however. Please contact Mr. Paterson 

direct - Ed. ) 

Letter from Mr. R.D. Hall, North Geelong, Uic. 

Could you tel I me if there is any way of producing better graphics on the 
TRS-80, e.g. more realistic curves instead of square patterns? Is it software 
control labia, e.g. with a higher level language such as Pascal , or is it a 
hardware problem? If it is hardware, do you think it possible to modify with 
better or more chips? 

CONTINUED ON PAGE 10. 



* 
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*♦*** BLOCK MOUE ***** 
by E. R. Paay 

After reading the title of this article some of you may ask what this is al I 
about. Well, picture this : You just received your latest issue of Micro-80 
in the post and found a crash-hot machine language program which makes the 
cursor flash and displays rude comments while it runs BASIC programs etc. 
Just think of it - all your mates will be asking how you did it. So you load 
your favourite monitor program in memory to type in ten pages of hex from a 
hex dump in the magazine and to dump it to tape afterwards. But then it 
happens ! After carefully typing in five pages suddenly the cassette relay 
buzzes the screen fills with funny characters, the keyboard and reset button 
are locked out and the only thing you can do is power up again. You just sit 
there wondering what happened. Then studying the hex dump closely it suddenly 
strikes you, part of the hex dump resides in the same place as your monitor 
and you have started to over-write part of the monitor you were using to enter 
the program in memory, hence the crash. This poses a problem, you need the 
monitor to dump the program to tape after typing it in but you can' t use it, 
if the program is typed in at the location it has to run from. The answer is 
use a block move! The Z80 cpu has a block move instruction as part of its 
instruction set which can be used to advantage. 

The basic idea is to type the program in at a different location from that at 
which it wil I be executed and to add a sma I I block move routine to the 
beginning or end of the actual program. Then the whole program, block move 
and all, is saved to tape using the start of the block move routine as the 
entry point. Whenever the program is executed, the block move routine will 
move the program to its proper location and then jump to the correct entry 
point to execute it. To summarize then, all we need do is set up the CPU 
registers with the new start address, the old start address and the program 
length, execute a block move and then jump to the entry point of the program. 

Let us look at an actual example. Assume that we have to type in the machine 
language program below and then save it to tape but the only free space starts 
at 5080H. First, the program might look like this : 

7000 01 00 00 CD 60 00 3E 2A CD 33 00 C3 00 70 

In assembly language it looks like this : 

100 ORG 7000 

200 LD BC.0 

300 CALL 60H 

400 ENTRY LD A,' *' 

500 CALL 33H 

600 JP 7000H 

700 END 

The start is at 7000H, the entry point is at 7006H and the length of the 
program is 14 bytes. All this program does is print an asterix at one second 
intervals (couldnt think of anything better!). In order to use the block move 
instruction we have to load the HL register pair with the new start address, 
the DE register pair with the normal start address and the BC register pair 
with the program length, this takes nine bytes:- three for each load. The 
block move instruction is two bytes long and the jump is three bytes long, 
giving a total of 14 bytes ( E hex). If we now type the above program in, 
starting at 5000 hex and add our block move routine to the end of it, it would 
I ook I ike th is : 
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5000 01 00 00 CD G0 00 3E ZA CD 33 00 C3 00 70 21 00 
5010 50 11 00 70 01 0E 00 ED B0 C3 0G 70 

In assembly language : 



100 




ORG 


5000H 




110 




LD 


BC,0 




120 




CALL- 


G0H 




130 


ENTRY 


ED 


ft.'*' 




140 




CALL 


33H 




150 




JP 


7000H 




150 


; APPENDAGE 


STARTS HERE ! 




170 




LD 


HL.5000H ; 


NEW START ADRS 


180 




LD 


DE.7000H 


PROPER START ADRS 


190 




LD 


BC.0EH 


; PROGRAM LENGTH = 14 BYTES 


200 




LDIR 




BLOCK MOUE 


210 




JP 


7006H 


JUMP TO ENTRY POINT 


220 




END 







In this case the block move routine has been appended to the end of thj 
original program but it is also possible to put it at the start of the prograf 
with no change necessary. 

- OOOOO - 



PROGRAMMERS 

Wanted: Free-lance 

programmers familiar with TRS-80 

Level II BASIC to write customized 

software packages for dynamic 

electronics retailer. 

If you are a University student, tutor, 

lecturer, doctor, lawyer, computer 

programmer or microcomputer buff 

and if you own a TRS-80/SYSTEM 

80 and/or enjoy programming in 

BASIC, why not take this opportunity 

to make some extra money in your 

leisure time by writing various 

software programmes for us? 

Give me a call - you have nothing to 

lose but plenty to gain. 



Please direct enquiries to: 




MARK SIM 
^ DICK SMITH 
>3? ELECTRONICS 
Phone (02) 888 3200 



8V7 
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ThQ fol lowing is a I ist of '80 Users' Groups. If you haue a group that is not 
included here, please let us know about it so that we can publ ish details. 
Owner of System '80s are welcome at all the groups. 

BRISBfiNE: Contact: Mr. Lance Lawes, Tel: Home (07)336 2338 

Bus. (07)268 1131 Ext. 15 
MEETINGS 1st Sunday of the month 

at 2 p.m. at 21 Rodney St. Lindum, 4178. 

MELBOURNE: EASTERN SUBURBS - 1 

Contact: Mr. John Fletcher, 83 0677 between 3-4 

EASTERN SUBURBS - 2 

MEETINGS: 3rd Wednesday of the month 

at Kingswood College, 355 Station St. Box Hill. 

BUG-80 (Burwood Users Group for '80 Cassette 

Systems ) 

Contact: Rob Callander, 288-2383 after 6 p.m. 

DARWIN: Contact: Tony Domigan, P.O. Box 

N.T.5783. 



33086, Winnel I ie, 



ADELAIDE: Contact: Rod Stevenson, 51 5241 between 3-4. 

- 00000 - 



So you need 
advice about 
Computers^ 



PN*£S 




IKvice 



is just 
a phone call away. 

Computers are fairly complex products and customers who 
have bought them tend to need assistance, advice and support 
from time to time. ._..«. 

A special "Hotline" service is available to Dick Smith System 80 
and Sorcerer computer and peripherals customers. Up-to-the- 
minute help and advice is available just by phoning 
(02) 888 2002. 

Your consultant, Steven Engel, will be pleased to assist with 
Dick Smith computer enquiries and will forward comprehensive 
literature if required. 

This new "Hotline" provides a level of service and support 
without equal in Australia's small computer industry. 

special hotline no. 
[Q81 888-2005 



DICKSMITH ELECTRONICS 

SYDNEY • MELBOURNE • BRISBANE • ADELAIDE 
CANBERRA • PERTH • WOLLONCONC 




826 
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***** E.S.F. FORUM - By Charlie Bartlett ***** 

This month uie are going to take a look at the abil ity of the ESF to @SAUE and 

©LOAD areas of memory to wafer, (any area of memory ! ! ! ), lets see you do that 

with a cassette. 

Load in this smal I demonstration program and ( @SAUE I ) the program before 

you try to run it, as the program wil I try to @SAUE 2, and if you have not 

@SAUED 1 first you are going to get nowhere. 

10 CLS 

20 FOR X=15488T016333:P0KEX, 191: NEXT 

25 PRINT@0, " JUST A SECOND, I' M " ; 

30 @SAUE2, 15488,896 

40 CLS 

45 PRINT@0, ■ JUST A SECOND, I' M " J 

50 @L0AD2 

60 PRINT@0, CHRS( 205 ); :PRINT@12, "THERE, IT'S ALL "; 

70 REMEMBER THIS IS WHERE YOU WOULD @L0AD3 YOUR MAIN PROGRAM 

80 GOTO80 

Study the I isting, there is as much to be learned from the I isting as there is 

from running the program. 

Line 20 - whites-out most of the screen, the top of the screen being 
kept clear for messages. 

Line 30 - instructs the ESF to @SAUE an area of memory, only in this case 
the area we are going to save is the Uideo Memory, rather than 
a block of RAM, as you would norma I y do. 

(25 - are a crafty way of using part of the message that the ESF puts 
Lines(45 out. 
(60 

Line 40 - clears the screen so that when I ine 50 is executed we can see 
that Uideo Memory is loaded direct from the wafer. 

No doubt, you can see lots of possibil ities on the horizon. For instance, 
program instructions loaded direct to the screen, without any of your 
ualueable RAM space being used or graphic displays loaded one after the other. 
I said it last month and i'm going to say it again. 

ITS NOT... "JUST A FAST CASSETTE DECK " So if you haven't got one yet, just 
look at what you're missing!! 

- 00000 - 



***** SPECIAL OFFER - EXATROU STRINGY FLOPPY $352.50 incl. p&p ***** 
All Exatron Stringy Floppies sold by MICR0-80 will include the special chained version of HOUSEHOLD 
ACCOUNTS, developed by Charlie Bartlett. When used on the ESF, this program is powerful enough to 
perforin many of the accounting functions in a small business. Remember, the ESF comes complete 
with a comprehensive manual, a 2 way bus-extender cable, its own power supply and 10 wafers of mixec 
length. One wafer contains the Data Input/Output program and another the HOUSEHOLD ACCOUNTS 
program . 

CAN'T MAKE UP YOUR MIND ABOUT THE ESF? 

Then send in $5-00 for a copy of the manual. We will refund your $5-00 IN FULL when you purchase 

an ESF. - . — 
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** SYSTEM 80 - 32 CHARACTER PER LINE UNDER SOFTWARE CONTROL ** 

***** CORRECTION ***** 

There was an error in last month's article. The lead running from pin 5 of 
the 74LS175 to the 2102 shouldhave been shown going to pin 11 not pin 10. See 
revised diagram below. 

In some machines, this modification causes the computer to go straight into 
large character mode after switch on. It is then necessary to type: 

OUT 255,0 <NEW LINE> 
to revert to standard character size. Next month we will describe how you can 
add a switch to control this function. 



VIDEO 

cur p, switch 



video 
socket 




SYSTEM 80 LAYOUT 



****** BOOT ****** 
by E. R. Paay 

When a disk system is first turned on, the Disk Operating System automatically 
loads into memory and initializes itself (commonly known as booting DOS). 
Some of our readers may have wondered how this happens. As a matter of fact, 
the routine for loading the initial DOS system file named BOOT/SYS is 
contained in the level II ROM. This routine is located from 0GSFH to 0SCBH. 
From 0002H, the interpreter jumps to 0S74H, the start of the initialization 
routine. At 06S6H, a test is made to see if there is a disk drive. If not, 

initialization continues at 75H. If the floppy disk controller ( FDC ) is 
present, initialization continues at 06SFH. To make clear what happens at 
0S3FH I have prepared a disassembled listing to which I have added comments, 
this is shown below. 

BOOT/SYS is a small program 255 bytes long (and not just a table of data as 
some people seem to think), which loads the system file called SYS0/SYS. In 
order to understand the process fully, knowledge of digital electronics and of 
devices such as the FDC is required, I have included sufficient comments 
however to understand how the program itself works. 
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0696 


3REC37 


LD 


fi,(37ECH) 


0699 


3C 


INC 


ft 


069R 


FE02 


CP 


02H 


069C 


DR7S00 


JP 


C.75H 


069F 


3E01 


LD 


R.01H 


06fil 


32E137 


LD 


(37E1H),R 


06R4 


21EC37 


LD 


HL , 37ECH 


06R7 


11EF37 


LD 


DE.37EFH 


06RR 


3603 


LD 


( HL ) , 03H 


06RC 


010000 


LD 


BC,0 


06RF 


CD6000 


CALL 


60H 


06B2 


CB46 


BIT 


0, (HL) 


06B6 


RF 


XOR 


fi 


06B7 


32EE37 


LD 


( 37EEH ) , R 


06BR 


010042 


LD 


BC.4200H 


06BD 


3ESC 


LD 


R.8CH 


06BF 


77 


LD 


( HL) , R 



06C0 CB4E BIT 1, (HL) 

06C2 28FC JR Z.SC0H 

06C4 1ft LD R,(DE) 



0SC5 02 LD ( BO.fi 

06C6 0C INC C 

06C7 20F7 JR NZ.6C0H 

06C9 C30042 JP 4200H 



FLOPPY DI6K CONTROLLER 
PRESENT ? 

IF NOT, INITIALIZE LEU II 

TURN DRIVE ON. 

POINT HL TO FDC STRTUS 

RDDRESS (RD) OR COMMRND 

REGISTER RDDRESS ( WR ) 

POINT DE TO RDDRESS OF FDC 

DRTR REGISTER. 

LORD COMMAND REG. IN FDC 

WITH CODE FOR 40 MSEC 

HERD STEPPING RRTE. 

DELRY ONE SECOND TO RLLOW 
DRIUE MOTOR TO SETTLE DOWN 
WRIT TILL DRIUE SIGNRLS 
THRT IT IS "NOT BUSY" 
CLEAR R REG. 

SET SECTOR REGISTER IN FDC 
TO ZERO. (TRRCK 0, 

SECTOR 0) THIS IS WHERE 
BOOT/SYS RESIDES ON DISK 
RDDRESS WHERE BOOT/SYS 
WILL BE LORDED. 

LORD COMMRND REG. ( QCH 
TELLS THE FDC TO READ fl 
SINGLE RECORD, USING IBM 
FORMRT, TO LORD HERD ON 
DISK RND DELAY 10 MSEC. 

WAIT TILL DRTR READY 

SIGNAL PRESENT. 

GET THE BYTE RERD FROM 

DISK BY THE FDC RND PLACE 

IT IN REG A. 

NOW PUT IT IN MEMORY. 

INCREMENT MEMORY POINTER 

LOOP TILL 255 BYTES READ 

JUMP TO BOOT/SYS PROGRAM 



- 00000 - 
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++++++++++ HOW TO BO BEYOND 16K WITHOUT GOING BANKRUPT ++++++++++ 

A Review of the LNW RESEARCH Expansion Interface Kit 
By Brian H. CHRISTEN SEN P.O. Box 140, WODEN A.C.T. 2606 



After twelve months as a happy user of a 16K Level II system 
I recently decided to make the great leap forward to a disk system. The 
shock of TANDY'S orice tag of $919 for a 32K Expansion Interface, needed 
before I could even think about a disk drive, sent me searching through 
overseas magazines in search of an alternative. I eventually found an 
pdvertisement offering a bare pc board for an expansion interface, with 
a construction manual, for the oaltry sum of US$69.95. The offer was 
made by LNW Research, of P.O. Box 16216, Irvine, California, 92713, 
U.S.A. to whom I promptly wrote for further details. 

The first surorise was the time taken for a reoly to be recei- 
ved - a little over a week. The reoly gave further details of the board 
including the fact that it has orovision for an on-board RS232C inter- 
face - a considerable bonus since TANDY charge $139.95 for this feature. 
The cost of shipping by airmail to Australia was quoted as US$10. 05, 
making the total cost $30,00. Encouraged thus far, I decided to take the 
olunge 2nd nrcmotly sent off a bank draft. In less than another two 
weeks I had in my hand a well-made dr)uhlp.-sirfed r92mn x 245mm board 
and a ^0 page manual. T then commenced to acquire the 66 integrated 
circuit chips and other components necessary to convert the board into 
an expansion interface. To make this easier, the manual provides seoarate 
parts lists for (a) power supplies, (bj memory expansion, (c) floppy disk 
controller, (d) printer interface, (e) serial interface controller 
(PS232C), and (f) real time clock. This enables the constructor to build 
only those features he requires. The cost of comoonents will very with 
the source of supply, but the following is a fair guide to what I paid 
for each section of the interface :- 

Power Suoplies $30 olus transferrer 

Disk Controller $78 

Memory Expansion $26 plus memory chips 

Printer Interface $16 (if the disk controller is 

built this drops to about $4) 
Serial Interface $41 

Dual Cassette Interface $2 plus relay and hardware 
Note that 200 ms chips (4116 or equivalent) are necessary for the memory 
expansion. Slower chips will not work in the interface. If you already 
have some slower 4116 chips, try putting them in the CPU and using the 
TANDY chips in the interface. T his worked for me. For the power supply 
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transformer, LN'.V Research suggest that you use the standard TANDY 
TRS 80 power suooly. However, since I understand TANDY (Australia) are 
asking about $50 for this item, I chose to supply the two voltages 
required (17 VAC at 1A and 20VDC rectified but not smoothed at 350 ma) 
using two Ferguson low profile transformers at about $10 each (types 
PLIS/flOVA and PL40/40VA) and a couole of EM402 diodes. 

So much for the costs. How easy is it to get the interface 
built end working? Although I have held a ham licence since 1963 and 
have put together a few small ic projects (eg. digital clocks), I do 
not consider myself an exnert with a soldering iron and I have certainly 
never tackled anything as complex as the interface before. I made sure 
I had a light, controlled-temoerature soldering iron, a supply of good 
quality fine solder and a well-lit place to work. The actual construction 
of the board took me just under six hours. I think most oeople could do 
it in four. The board is clearly marked with the oosition of all comoon- 
ents and anything unusual is exnlained in the manual. Although sockets 
are not necessary for the chips, LNW Research recommend their use and T 
commend their advice. The only test equipment specified is a voltmeter 
to ensure you have the right voltages in the right places, before you 
plug in the chips. When I had finished I plugged in the 16K of memory 
chips I had on hand and waited for results. Haopily no smoke issued forth 
but the system went into a wait state (or a loop?) while trying to estab- 
lish memory size. Swaoping the memory chips as described above, I was 
rewarded with a proper memory size. However, my joy was shortlived as 
I soon discovered that BASIC programs which use high memory for string 
storage would just not work. A long and careful inspection of the 1000-odd 
solder points looking for dry joints proved fruitless. Eventually I traced 
the oroblem to the 40-connector cable joining the interface to the CPU. 
In my desire to save money, I had made this up mysely instead of buying 
it ready-made, and a slow tedious job it was. Despite my care, one of the 
connections had broken, apparently in an address line. When this was 
fixed the problem disappeared. The next test was the parallel printer 
interface. As soon as I plugged in the ANADEX and typed in an LPRINT 
command, the printer sprang into life indicating that I had no problems 
in that area. The crucial test, I felt, would be the disk controller. Not 
owning a disk drive, I had to wait a few days before I could borrow one. 
With fear and trepidation, I plugged in the drive, powered up and was 
greeted by the magic words "DOS READY". So far I have not been able to 
test the RS232C serial interface but I have no reason to believe that it 
will cause any more trouble than the other sections. The dual cassette 
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MICRO-80 PRODUCTS ***** 






newdos so is in stock, (only $149) 

This long-awaited disk operating system has 
now arrived and has already been delivered to 
many eager customers around Australia. It is 
every bit as good as it was cracked-up to be 
and MICRO-80 has decided to standardise on it 
for its own systems. Here are just a few of 
the many things you can do with NEWDOS 80 
which is upward compatible with TRSDOS and 
NEWDOS + (i.e. TRSDOS and NEWDOS + programs 
will run on NEWDOS 80 but the reverse is not 
necessarily so). 

* New BASIC commands that support variable 
record lengths up to 1*095 bytes long. 

* Mix or match disk drives. Supports any 
track count from 18 to 80. Use 35, Uo , 77 
or 80 track 5" mini disk drives or 8" disk 
drives, OR ANY COMBINATION! 

* A security boot-up for BASIC or machine code 
application programs. User never sees 
"DOSREADY" or "READY" and is unable to 
"BREAK", clear screen or issue any direct 
BASIC statements including "LIST". 

* New editing commands that allcv program 
lines to be deleted from one location and 
moved to another or to allow the dupli- 
cation of a program line with the deletion 
of the original. 

* Enchanced and improved RENUMBER that allows 
relocation of subroutines. 

* Powerful program chaining. 

* Device handling for routing to display and 
printer simultaneously. 

* CDE function; simultaneous striking of the 
C, D and E keys will allow user to enter a 
mini-DOS to perform some DOS commands with- 
out disturbing the resident program. 

* Includes Superzap 3.0 (improved, machine 
language version of Superzap) and all 
Apparat 2.1 utilities. 

NEWDOS + 

35 TRACK VERSION $99-00 incl. p&p 

!»0 TRACK VERSION $110.00 incl. p&p 

NEWDOS by Apparat, is the third generation 
disk operating system for your TRS-80. NEWDOS 
corrects over 70 errors and omissions in 
TRSDOS and Disk BASIC yet the two are com- 
pletely compatible. Going from TRSDOS to 
NEWDOS is like going from Level I to Level II, 
more power, more convenience, greater speed. 
NEWDOS + includes the following utilities: 

* Editor-assembler for Disk 

* Disassembler (z80 machine code) 

* LM offset - allows transfers of any system 
tape to a Disk file - automatically 
relocated. 



* BASIC 1 - Lets you convert your computer 
back to Level I 

* LVIDKSL - Saves and loads BASIC 1 programs 
to disk 

* SUPERZAP - display /print /modify any location 
in memory or on disk. 

* RENUMBER BASIC program. 

and much more . 



** SCOTCH 


BRAND COMPUTING CASSETTES 


*# 




Thesesuper- 


-quality cassettes are now 


back in 




stock. 








C-10 pack 


of 10 $26.00 incl. 


p&p 




c-30 pack 


of 10 $28.00 incl. 


p&p 





1»0 PIN EDGE CONNECTORS $12.30 +50c. p&p 

These difficult to obtain connectors are 
essential if you are working on a hardware 
project requiring connection to the TANDY -bus. 
The connector. attaches to a Uo way ribbon 
cable and plugs straight on to the back of your 
TRS-80. 



***** MICR0P0LIS 77 TRACK DISK DRIVES ***** 
These fabulous MICR0P0LIS disk drives have 
-ore than double the storage capacity of the 
standard 35 track drives. 

** DD-7S only $775 incl. p&p ** 
77 track MICR0P0LIS drive complete with cable 
for four drives, power supply, chassis and 
includes NEWDOS 80. 

** DD-7 only $61)9 incl. p&p ** 
Same as above but no cable or NEWDOS 80. 



** DC-li only $!»5 incl. p&p ** 
1* drive connector cable - suitable for 
disk drives. 



any 



***** DISKETTE BREAKTHROUGH ***** 

We have changed our brand of diskettes but 

not our price. We now sell genuine 

BASF DISKETTES 
SINGLE SIDE/SINGLE DENSITY $1*5.00 per box of 
10 incl. p&p. 

DOUBLE SIDE/DOUBLE DENSITY $59.00 per box of 
10 incl. p&p. 
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SOFTWARE BY AUSTRALIAN AUTHORS 



All our software is suitable for either the 
SYSTEM 80 or the TRS-80 (with the exception of 
Me Think it Micro Mazin vol. 2). Tapes are 
specially recorded at high levels to ensure 
satisfactory loading into SYSTEM 80 's. 

** UTILITIES ** 

S-KEY by Edwin Paay $15-95 plus 50c. p&p 

S-KEY is a complete keyboard driver routine 
for the TRS-80 and becomes part of the Level 
II basic interpreter. With S-KEY loaded the 
user will have many new features not available 
with the standard machine. 
S-KEY features: 

* S-KEY will provide an auto repeat for all 
the keys on the keyboard. If any key is 
held down longer than about half a second 
the key will repeat until it is released. 

* Graphic symbols can be typed direct from the 
keyboard, this includes all 6k graphic 
symbols available from the TRS-80. 

* S-KEY allows text, basic commands and/or 
graphics to be defined to shifted keys. 
This will make programming much easier as 

whole, commands and statements can be recalled 
by typing shift and a letter key. 

* Because S-KEY allows graphics to be typed 
directly from the keyboard, animation and 
fast graphics are easily implemented by 
typing the appropriate graphic symbols 
directly into PRINT statements. 

* S-KEY will allow the user to LIST a program 
with PRINT statements containing graphics, 
properly. S-KEY does this by intercepting 
the LIST routine when necessary. 

* S-KEY allows the user to list an updated 
list of the shift key entry's to the video 
display or line printer. 

* S-KEY can be disabled and enabled when 
required. This allows other routines which 
take control of the keyboard to run with 
S-KEY as well. 

Each cassette has TRS-80, DISK and SYSTEM 80 
versions and comes with comprehensive docu- 
mentation. 

BMON by Edwin Paay $19-95 plus 50 c. p&p 

THE ULTIMATE HIGH MEMORY BASIC MONITOR L2/16K 
and up . 

Our own personnel refuse to write BASIC with- 
out first loading this amazing machine 
language utility program into high memory! 
BMON Renumbers; Displays Basic programs on the 
screen while they are still loading; Tells you 
the memory locations of the program just 
loaded; Lets you stop a load part-way through; 
Merges two programs , with automatic 



renumbering of the second so as to prevent any 
clashes of line numbers; Recovers your program 
even though you did type HEW: Makes one 
program invisible while you work on a second 
(saves hours of cassette time!); Lists all the 
variables used in the program; Makes SYSTEM 
tapes; Lets you Edit memory directly .. .the list 
goes on and on. Cassette comes with l6K, 32K 
and U8K versions, ready to load. Can anyone 
afford NOT to have BMON? 



** EDUCATIONAL ** 

RPN CALCULATOR (L2/16K & L2/32K) $2 It. 95 +50c 

p&p. 
Give the computer the power of a $650 reverse 
polish notation calculator with !j5 functions 
and selectable accuracy of 8 or 16 digits . 
The main stack and registers are continuously 
displayed, whilst the menu is always instantly 
accessible without disturbing any calculations 
or register values. The cassette HOW comes 
with both the l6K and 32K versions , the latter 
giving you the additional power of a ■ 
programmable calculator. Comes with a very 
comprehensive 15 page manual, which includes 
instructions to load and modify the 32K pro- 
grammable version to run in l6K. Whether for 
everyday or occasional use, this package will 
prove invaluable, and turn your '80 into a very 
powerful instrument. 

TOUCHTYPE (L2/UK) $19-95 + 50c. p&p. 

An interactive, 22 lesson typing course which 
uses the computer's keyboard and screen to 
reach you to type rapidly and accurately, and 
a massive cassette data dump to control your 
progress . The computer checks for accuracy , 
and sets times exercises to check your pro- 
gress. If you have to look at each key before 
you press it, or only use two fingers, then 
this program, plus a little perseverance, will 
do some amazing things to your typing speed. 



** GAMES ** 

UB0AT $7.50 plus 50c. p&p. 

Real time simulation at its best! Comes with 
working sonar-screen and periscope, a full 
rack of torpedos , plenty of targets , working 
fuel and battery meters, helpful Mothership 
for high-sea reprovisioning, and even has 
emergency radio for that terrible moment when 
the depth-charges put your crew at risk. 
Requires Level II/16K. 



ISSUE 10 (SEPTEMBER 1980) 



MICRO-80 



PAGE 24 



SPACE INVADERS $7-50 plus 50c. p&p. 

Much improved version of this arcade favourite 
with redesigned laser and cannon blasts , high- 
speed cannon , 50 roving drone targets , 10 
motherships and heaps of fun for all. Level II 
with I4K and 16K versions on this cassette. 

MMM- vol.1 and vol.2. $7-50 each plus 50c. p&p 
Two, three-game cassettes from that master of 
TRS-80 graphics, Charlie Bartlett . Vol.1 
brings you INDY 500, an exciting road race 
that gets faster and faster the longer you 
play, SUBHUNT in which your warship blows up 
unfortunate little submarines all over the 
place, and KNIEVEL (as in motorcycle, ramp and 
buses ) . 

Vol.2 (not System 80 compatible) contains TANK, 
a two player battle of speed and skill, THIEF 
(steal an old man's hoard of loot then escape 
from the labyrinth before he gets you), and 
SHOOTOUT (a Mexican style high-noon for two). 

DALEK CHASE (L2/16K and up) 

$7.50 + 50c. p&p 
An absorbing game in which you save Dr Who 
from pursuing Daleks . The better you play, the 
harder it gets (and vice versa). Infinite 
range of play levels from HARD to UTTERLY 
IMPOSSIBLE, and comes complete with messages 
of praise and mediocre insults, (if you are 
really bad enough at this game, it actually 
refuses to play any more!) ENTHRALLING FUN 
FOR ALL. 

*«*** GREEN SCREEN SIMULATOR ***** 
$19.95 incl p&p 
The GREEN SCREEN SIMULATOR is made from a deep 
green perspex, cut and curved to fit your 
monitor. It improves contrast and is much more] 
restful to the eyes than the normal grey and 
white image. All the editorial staff of 
MICR0-80 (including Scrooge Mc. Hartley) are 
now using GREEN SCREEN SIMULATORS on their own 
monitors . Please make sure to specify whether 
you have an old (squarish) or a new (rounded) 
style monitor when ordering. 



***** MICRO-80 PRODUCTS ***** 
Use ORDER FORM on page 45 



***** MPI DISK DRIVES ***** 
MPI is the second largest manufacturer of 
disk drives in the world. They use the same 
form of head control as on 8" drives and con- 
sequently, they have the fastest track-to- 
track access time available: 5 msec. All 
their drives are capable of single or double 
density operation. (Double-density operation 
requires the installation of a special PC 
board in the expansion interfacs. This board 
is not yet available in Australia). As well 
as the single head ItO track disk drive, MPI 
also make a dual-head Uo track disk drive. To 
all intents and purposes , a dual-head drive 
behaves like two single-head drives but is 
much cheaper. 

Our MPI drives are supplied bare, set up to 
operate with the TRS-80. They can be used 
bare or a simple cabinet made up from sheet 
metal. They require the use of a separate 
power supply giving 5 volt at 0-7 amp and 12 
volt at 1 amp_. All drives are sold with a 90 
day warranty and. service is available through 
MICRO-80 PRODUCTS. 

MPI SINGLE HEAD DISK DRIVE only $339 incl. p&p 
MPI DOUBLE HEAD DISK DRIVE only $449 incl. p&p 
Ring first to check availability. 



***** BOOKS ***** 

LEVEL II ROM REFERENCE MANUAL $2U.95 plus 
$1.20 p&p. 

Over 70 pages packed full of useful infor- 
mation and sample programs . Applies to both 
TRS-80 and SYSTEM 80. 

TRS-80 DISK AND OTHER MYSTERIES $2U.95 plus 
$1.20 p&p. 

The hottest selling TRS-80 book in the U.S.A. 
Disk file structures revealed, DOS's compared 
and explained, how to recover lost files, how 
to rebuild crashed directories - this is a 
MUST for the serious Disk user and is a 
perfect companion to any of the NEWDOS's. 

LEARNING LEVEL II $16.95 plus $1.20 p&p. 
The second hottest selling TRS-80/ SYSTEM 80 
book in the U.S.A. Written by David Lien, the 
author of the TRS-80 Level I handbook, this 
book teaches you, step-by-step, how to get the 
most from your Level II machine. 

INTRODUCTION TO T-BUG $12.50 plus $1.20 p&p. 
This book describes in detail how to use 
Tandy's T-BUG monitor program. Each command 
is explained and discussed in detail with 
examples. A must for the T-BUG user. 
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** PROGRAMS FROM CREATIVE COMPUTING ** 

** ADVENTURE PROGRAMS ** 
ADVENTURELAND (L2/16K) $l | t.95 + 50c. p&p 

Try to find and take treasures as you explore a 
fantasy world. The computer acts as your 
puppet and carries out your two word commands . 
Sometimes you will need special objects to do 
certain things, often a little magic is 
necessary. Absorbing and challenging. 

THE COUNT ADVENTURE (L2/16K) 

$l i *-95 + 50c. p&p 

In this adventure, you awaken in a bed in a 
castle in Transylvania. You don't know why 
you are there but you'd better solve the puzzle 
before it's too late. Just as enthralling as 
ADVENTURELAND but blood thirstier! 

** GAMES ** 
AIR TRAFFIC CONTROLLER (L2/16K) 

$7-95 + 50c. p&p 
One of the hottest selling games in the USA, 
you are the Air Traffic Controller and the 
monitor is your radar screen. Bring down the 
aircraft safely and avoid mid-air collisions. 

Z Chess (L2/16K) $19-95 + 50c . p&p 

Seven levels of ability, contains all standard 
moves including castling and En Passant 
captures. It can play either black or white 
and its versatile board set-up mode allows 
specific positions to be played as desired. 

SPACE GAMES (L2/16K) $7-95 + 50c. p&p 

k Space games including ULTRA-TREK, R0MULAH, 
STARWARS and STARLANES. Fast, real-time 
graphics. 

STRATEGY GAMES (L2/16K) $7-95 + 50c. p&p 

5 Strategy games including TUNNEL VISION (find 
your way out of a 3-D maze), EVASION - avoid 
the deadly snake), JIGSAW (put the puzzle to- 
gether), THE MASTERS (Golf on the '80 for up 
to h players), MOTOR RACING (Compete against 
the computer at Indy or the Grand Prix). 

GRAPHING PACKAGE (L2/16K.) $7-95 + 50c. p&p 
A set of 6 utility programs which allow you to 
draw BAR GRAPHS, GRAPH CARTESIAN COORDINATES, 
carry out POLAR GRAPHING, PARAMETRIC GRAPHING, 
LINEAR REGRESSION and PARABOLIC REGRESSION. 



** PROGRAMS BY MICROSOFT ** 

EDITOR ASSEMBLER PLUS (L2/16K) 

$39-95 plus $1.20 p&p 
A much improved editor-assembler and debug/ 
monitor for L2/16K TRS-80 or SYSTEM 80. 
Assembles directly into memory, supports macros 
and conditional assembly, includes new 
commands-substitute, move, copy and extend. 

LEVEL III BASIC $59-95 plus $1.20 p&p 

Loads on top of Level II BASIC and gives 
advanced graphics, automatic renumbering, 
single stroke instructions (shift-key entries) 
keyboard debounce , suitable for L2/16K and up 
(Not Disk BASIC)' 

ADVENTURE ON DISK $35-95 plus $1.20 p&p 

This is the original ADVENTURE game adapted 
for the TRS-80.. The game fills an entire 
diskette. Endless variety and challenge as you| 
seek to rise to the level of Grand Master. 
Until you gain skill, there are whole areas of 
the cave that you cannot enter. (Requires 32K 
One Disk) 

DISK EDITOR ASSEMBLER 
SAVE $30 ONLY $107 plus $2.00 p&p| 

Supports Macros, linking loader, editor, cross 
references. See Assembly language programming 
article in August MICR0-80 for further details. 
(Requires 32K One Disk) 

BASIC COMPILER $208 plus $2.00 p&p 

Converts Disk BASIC programs to machine code , 
automatically. A compiled program runs, on 
average, 3-10 times faster than the original 
BASIC program and is much more difficult to 
pirate. Note: MICROSOFT have temporarily with-| 
drawn this program for reworking to make it 
less memory-hungry. The revised version 
should be available about the end of September. 
All existing owners will receive updated 
versions at no cost to them. Don't wait 
though , send in your orders now and be near 
the front of the queue ■ 



***** 16K MEMORY EXPANSION KIT ***** 

|** REDUCED TO ONLY $59.00 !!!!! ** 

These are prime, branded, 200 ns (yes, 200 
nanosecond) chips. You will pay much more 
elsewhere for slow, 350 ns. chips. Ours are 
guaranteed for 12 months . A pair of DIP shunts 
is also required to upgrade the CPU memory in 
the TRS-80 - these cost an additional $!|.00. 
All kits come complete with full, step-by-step 
instructions which include labelled photo- 
graphs. No soldering is required. You do not 
have to be an experienced electronic technician 
to instal them. 
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interface merely provides a signal to drive a changeover relay. There 
is no provision for the relay on the board itself. If you don't want 
dual cassettes you can use the relay to sound a buzzer, turn a coffee 
pot on and off, or whatever. 

The construction manusl does not give any suggestion as to 
how the interface should be housed. I chose a metal box 419 x 280 x 134 mm 
(Adaptive Electronics model M502) which is the same length as the keyboard 
and can fit under the video monitor. The height is a bit excessive but 
leaves room for other boards which I intend to add. There is room at one 
end of the box for the power supply transformers, as shown in Fig.l. 
Since I wanted to place the disk drives and printer to the right of the 
monitor, I chose to connect the interface to the CPU using the scheme 
shown in Fig. 1. There is a limit of 300mm on the length of the connect- 
ing cable. If you want to use flat connecting cable, it would be possible 
to turn the board over and use the configuration in Fig, 2. 

So, there it is. I am extremely happy with my new exoansion 
interface. Its construction should present no difficulties to anyone who 
has had at least some experience in integrated circuit projects. Provided 
you tackle the project with care and the proper equipment (a 200 watt iron 
is NOT recommended) you should have the same success as I had, and save 
the price of your first disk drive into the bargain. I would be happy 
to answer any queries on the project, but a stamped addressed envelope 
would be appreciated. 




/mmm 1 





FIGURE 1 



FIGURE 2 
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T0 REM. 'ESCAPEE" COPYRIGHT fi.W. HOLLAND 23SEP79 

20 CLS: Y=1:N=0:H=0 

30 P.T. (24), "*** ESCAPEE *** 

40 I. "DO YOU REQUIRE INSTRUCTIONS" ; T: IFT=0G. 320 

50 IFTO1G.40 

S0 P. A.G4:P. A. 64, "WHEN INSTRUCTIONS APPEAR HOLD DOWN C 

70 P. "KEY UNTIL YOU ARE READY TO GO ON. " : F. K=1TO5000: N. K 

80 P.A.S4:P. 

90 P. A. 64, "YOU ARE A POLICEMAN CHASING AN ESCAPED PRISONER. 

100 P. "YOU HAUE CORNERED HIM IN AN UNDERGROUND GARAGE." 

110 P. "THE GARAGE HAS 64 PILLARS (SEE PLAN BELOW ) ". : GOS. 700: GOS. 770 

120 P. A.64:P. :P. 

130 P. A. 64, "THE ESCAPEE IS HIDING BEHIND 1 OF THE PILLARS. 

140 P. "IF YOU CAN GUESS WHICH PILLAR HE IS "; 

150 P. "BEHIND, YOU WILL CATCH HIM" : GOS. 770: P. A. 64 : P. 

160 P. A. 64, "EACH PILLAR IS NUMBERED - 

170 P. "EXAMPLE - 6,2 MEANS THE PILLAR IN COLUMN 6 ROW 2 (SEE BELOW) 

180 F.K=1TO10:P.AT55B, "*";ATS65, " . ";A.572, " . " : F. P=1TO500: N. P 

130 P. A. 558, ". " ;A.SSS, ". ";A.S72, " . " : F. P-1TO100:N. P: N. K 

200 P.fl.64:P. 

210 P. A. 64, "AFTER EACH GUESS I WILL TELL YOU EITHER HOW MANY 

220 P. "COLUMNS OR ROWS AWAY THE ESCAPEE IS FROM YOUR GUESS. 

230 GOS.770:P. A.64--P. :P. :P. 

240 P. A. 64, "THERE IS 1 CATCH - 

250 P. "AFTER EACH GUESS THE ESCAPEE MOUES. 

260 P. "HE MOUES 1 PILLAR HORIZONTALLY OR UERTICALLY ON THE PLAN. 

270 GOS . 770 : P . A . 64 : P . : P . 

310 G.330 

320 GOS. 700 

330 A=RND(8):B=RND(8) 

340 P. A. 64, "GUESS WHICH PILLAR THE ESCAPEE IS HIDING BEHIND (COL, ROW)"; 

350 I.R,S: IF(R<1 )+( R>8 )+( S< 1 )+( S>8 )G. 340 

355 H=H+1:CLS 

360 IF( A=R)*(B=S)G.600 

370 C=A-R: IFC<0C=-C 

380 D=B-S:IFD<0D=-D 

385 IFC=0G.430 

386 IFD=0G.4O0 

390 F=RND(2):ONFG.400,430 

400 IFC=1P. A. 128, "ESCAPEE IS 1 COLUMN FROM YOUR LAST GUESS. 

410 IFC=1G.460 

420 P. A. 128, "ESCAPEE IS" ; C; "COLUMNS FROM YOUR LAST GUESS. ° : G. 460 

430 IFD=1P. A. 128, "ESCAPEE IS 1 ROW FROM YOUR LAST GUESS. 

440 IFD=1G.4G0 

450 P. A. 128, "ESCAPEE IS" ;D; "ROWS FROM YOUR LAST GUESS. 

460 P. A. 24,"*** ESCAPEE ***°:GOS.700 

465 P. A.452+R*7+(S-1 )*64, "*" ; 

470 E=RND( 4 ) : ONEG . 480 ,510, 540 , 570 

480 A=A+l: IFA=3A=A-1:G.470 

500 G.340 

510 A=A-1: IFA=0A=A+1:G. 470 

530 G.340 

540 B=B+l: IFB=9B=B-l:G.470 

560 G.340 

570 B=B-1:IF B=0 B=B+1:G.470 

590 G.340 

600 P. "YOU CAUGHT HIM !!! CONGRATULATIONS 

610 P. "IT TOOK YOU" ;H; "GUESSES 
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620 I. "DO YOU WANT ANOTHER GAME" ; T: IFT=1G. 10 

G30 IFTO0G.620 

640 CLS:P."OKflY SEE YOU LATER. ° : GOS. 770: CLS 

650 E. 

700 P. ft. 348, "COLUMNS' ; ft. 641, "ROWS 

720 N=l : F. M=394T0443S. 7: P. ft. M, N: N=N+1 : N.M 

730 N=l : F. M=454TO902S . 64 : P . ft . M , N : N=N+1 : N . M 

740 M=459:N=S08:F.K=lTO8:F.L=MTONS.7:P.fl.L, ". " :N.L 

750 M=M+64:N=N+64:N.K 

760 N=0:RET. 

770 F.K=1TO2000:N.K:RET. 



1 REM ***** THE WORLD - LEUEL I ***** 

2 REM ** WRITTEN BY R. A. GEHRIG 

3 REM ** 9 CftROLINE ST KINGSGROUE 

4 REM ** COPYRIGHT MICRO-80 ** 
10 C. 

60 REST. 

100 P.ftT91,"THE WORLD"; 

120 F. I=lT0145:REftDL,R,Y 

1 30 F . B=LTOR :R.(B,Y):S.(B,Y):N.B 

140 N. I 

150 F.I=1TO10000:N. I:G. 10 

1000 D. 4, 12, 9, 38, 51, 9, 2, 19,10,41,50,10,7,28,11,40,49, 11,84,89,11,8,25 

1010 D. 12, 39, 44, 12, 79, 104, 12, 8, 20, 13, 39, 40, 13, 62, 69, 13, 77, 114, 13, 7, 22 

1020 D. 14, 26, 31, 14, 59, 62, 14,64, 115, 14,6,32,15,54,54,15,58,62,15,66, 108 

1030 D. 15,113,113,15,5,27, 16,51,51,16,53,54,16,59,59,16,64,106,16,113 

1040 D. 114, 16,3,28,17,57, 109,17,3,24,18,54, 110, 13, 4, 21 , 19, 51 , 55, 19, 59 

1050 D. 59, 19,62,66,19,71,74, 19,77,78, 19,80, 110, 19, 112,112, 19,3,18,20,51 

1060 D. 54, 23, 61, 61, 20, 63, 74, 20, 77, 108, 20, 113, 113, 20, 3, 3, 21, 5, 10, 21, 16 

1070 D. 17, 21, 66, 75, 21, 78, 108, 21, 107, 108,21,112,113,21,3,3,22,5,8,22,16 

1030 D. 17, 22, 50, 58, 22, 70, 104, 22, lli,-114, 22, 5, 8, 23, 48, 75, 23, 77, 107,23,6 

1090 D. 13, 24, 18, 19, 24, 21, 21, 24, 46, 68, 24, 71, 75, 24, 78, 107, 24, 10 

1100 D. 13,25,46,69,25,71,79,25,84,106,25,12,13,26,46,70,26,73,79,26,87 

1110 D. 92, 26, 96, 105, 26, 14, 24, 27, 46, 72, 27, 74, 76, 27, 87, 90, 27, 97, 102, 27 

1120 D. 109, 109,27,17,27,28,47,76,28,87,90,28,99, 103,28,189,109,28, 16,28 

1130 D. 29, 56, 76, 29, 88, 90, 29, 99, 99, 29, 101, 182, 29, 15, 29, 30, 57, 74, 30, 99 

1140 D. 100, 30, 110, 112, 30, 15, 34, 31, 57, 72, 31, 100, 100, 31, 106, 107, 31, 16, 35 

1150 D. 32, 57, 70, 32, 104, 107, 32, 17, 33, 33, 59, 70, 33, 115, 118, 33, 19, 33, 34, 58 

1160 D. 70,34, 117,120,34,20,33,35,58,70,35,74,75,35, 128,121,35,20,31,36 

1170 D. 59, 67, 36, 73, 74, 36, 113, 115, 36, 113, 119, 36, 20, 29, 37, 59, 67, 37, 73, 73 

1 180 D . 37 , 109 , 1 15 , 37 , 1 17 , 1 19 , 37 , 21 , 28 , 38 , 60 , 65 , 38 , 1 04 , 1 1 9 , 38 , 2 1 , 25 , 39 

1190 D. 60, 63, 39, 104, 119,39,21,27,40,103,120,40,21,24,41,103,120,41,21 

1200 D. 24, 42, 102, 105, 42, 110, 118, 42, 22, 24, 43, 112, 116, 43, 23, 26, 44, 125, 125 

1210 D.44, 112,113,45,124, 126,45,118,123,46 

1 ' ***** CUP ' 80 - LEUEL I ***** 

BY: SPENCER GEORGE. 

5 F.R=1TO50:X=R.C100):N.R 
10 F.X=1TO16:A(X)=0:N.X 

30 C. 

31 F.J=1T016 

32 P.ft.C J-l )*64, J; 
33* N.J 

40 X=R.C16) 

50 ft(X)=fl(X)+l 

60 IFFKX)=60P.ft.(X-l)*64+10, " NUMBER ";X;" IS THE WINNER ";:G.200 

70 T=ft(X)+(X-l)*64+3 

110 P.ft.T, ■*■; 

120 G.40 

200 G.200 
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I ' ***** CUP ' 80 - LEVEL II ***** 
BY: SPENCER GEORGE, 

14/47 YERRIN STREET, 
BfiLWYN, UIC. 3103 
(03) 83G 4225 



5 RANDOM 

10 CLEAR 2000 

20 DIM L( IB) 

30 CLS 

31 FOR J = 1 TO 16 

32 PRINTS ( J-l ) * 64, 

33 NEXT J 

40 X = RNDC16) 

50 L(X) = L(X) +1 

GS IF L(X) = 60 PRINT© 

OTO 200 



J; 



(X-l)*64 +10, 



70 T = L(X) + 
110 POKE T.42 
120 GOTO40 
200 GOTO200 



15360 + (X-l) * 64 + 3 



NUMBER " 



X 






IS THE WINNER 



;= g( 



*» LOTTO PREDICTOR** 32K AMD DISK (options for cassette) by Peter G. Hartley 

This is the first international edition of MICRO-80 (you'll probably find the 
Editor in the middle of Leicester Square shouting "MICRO-80 guv? * Only a 
'"i?'"? S ° I#d better explain to my fellow countrymen back "home" just what 
LOTTO is - because to them it's probably still an old Naval name for 
Hous le-housie or BINGO. 

Every Englishman knows that Australians will bet on anything - even two flies 
crauil ing up a window. In South Australia and Uictoria each week, under the 
myopic gaze of the Televison Audience, a massive perspex barrel spins, 
selecting six or seven numbered ping-pong balls (which the Aussies insist on 
calling marbles). We all grab our copy coupons and cross our fingers. 
The object is to have marked the first six out of the barrel - in which remote 
instance the lucky coupon holder will "shout all his mates" (purchase a glass 
of beer for each of his friends present in the local I icensed premi ses ). 
retire from gainful employment and purchase a lottery ticket or three to 
celebrate. 



Now, the odds against winning are fairly remote - though not as remote as 
getting 8 score-draws out of 8 on the "f ooty-poo I s " 

Those of you with a mathematical bent may care to work out the odds usinc 
following formula. 



the 



= (T * T-l * T-2 * 



(1*2* 



T-CN-1 ) ) 



N) 



where T = TOTAL number of posible numbers 
N = NUMBER of numbers required 
= a snowflake in hell's chance to ONE 
For forty numbers and picking six - it's about one in 3.8 million! 
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Now, no matter how well run such a "lottery" may be, there's always some idiot 
around who goes looking for a pattern. I'm just such an idiot, and the scheme 
used in this program actual ly worked with some smal I degree of success in the 
early days of the South Australian Cross Lotto, when there were only 36 
numbers instead of the present 40. 

Assumption number one - patterns tend to repeat 

Assumption number two - every number has an equal chance each week, regardless 
of previous euents 

Assumption number three - eventually it will all euen out, and in the year 
3000 or so every number will have been drawn an equal number of times - and 
every pattern will equal every other pattern. 

The pattern that I sought was that of numbers being drawn in any one draw 

being prediction pointers for numbers drawn the following week. Having built 

up a data base of these predictions, we then take care of the second and third 

"assumptions" by mixing the most predicted numbers with those least 
pred icted. 

The structure of the data base is a 40 by 40 array (L). (L for logical? Ed.) 
The size is determined by the number of possible numbers. If there are only 
3G numbers, it would be 3G by 36. In L(X,Y) X is one of the numbers drawn 
last week, and Y is any of the possible numbers. The data stored there 
represents the number of occurrences when Y has been drawn in the week 
following the drawing of X. 

With six numbers drawn there are G*6 pieces of data to file away each week. 
Each of the previous week's numbers are assumed to predict each of the most 
recent draw's numbers. 

Once the data file has been opened, and the data loaded, the results of the 
previous "most recent draw" are read into W( 1) through W(6), in line 130. 
Lines 150 through 270 allow the operator to input the results of the next draw 
into array X( 1 ) through X(6) 

It is now a simple matter to increment the appropriate parts of the data base 

with the 36 new predictions. This occurs in lines 270 to 310. 

Next we load array U with the levels of prediction recorded for the six most 

recently drawn numbers - still in array X (Lines 330 to 330) and these are 

bubble-sorted into their order of merit (lines 330 to 450). 

The remainder of the program simply mixes your selections of most and least 

predicted values and generates random mixes of these for your coupon entries. 

The now updated data is filed back to disk, and the contents of array X are 

written in for reading back as array W in one week's time. 

Because of the size of the data-base, this program doesn't really lend itself 
to use with cassette based systems, but the REMs in the listing explain how 
the more determined of you can do it anyway.... 

The error-trap in lines 50 and 570 is only used with disk systems for the very 
first pass through the program - when there is no file on disk to read. 
Line 320 is only required to allow the building up of a data base from past 
records, and should be deleted when you start running the program on a week by 
week basis. Once your data-base has been established, when the loop 
establihed by line 320 asks for more data, press <BREAK>, type in GOTO 690 
<ENTER> and the date base will be filed away.... 
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Readers may care to develop this further - perhaps by adding extra dimensions 
to the arrays so as to allow predictions based of the previous meek but one, 



the previous week but two, etc. 



Over twenty years ago I forked out forty pounds (a great deal of money in 
those distant days) for a vaguely similar system for use on the football 
pools. As it actually worked, I look forward to being able to present the 
BfiSIC version of that in a future edition of MICRO-80. 
Happy Dreaming! 
P.G.H. 






2 
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COPYRIGHT CO 1S8B PETER G 
57 MAIN AVENUE, FREWVILLE, 
TELEPHONE 08 - 79 4061. 

MICRO-80, SEPTEMBER 1S80 



hARTLEY. 

S.A. 5053. 



( 



DEFINTA-2 
CLS 

PRINT"LOTTO 
DIMLC40.40) 



ONERRORGOTO730 



PREDICTION SYSTEM" 

U(1,40),Z(40) ' UALUES DETERMINED BY NUMBER OF MARBLES 



G0 OPEN "I 



70 ONERRORGOTO0 ' 
80 FORK1=1TO40 
S0 FORK2=1TO40 

100 INPUT*!, LCK1.K2) 



110 NEXT: NEXT 
120 F0RK=1T06 
130 INPUT#1,W(K) 



THIS LINE ONLY REQUIRED ON FIRST PASS 
THROUGH WITH NO DATA FILE ON DISK 
•LOTTO/ TXT" 'CASSETTE USERS CHANGE TO 

68 PRINT "READY CASSETTE?" 
AND DELETE LINE 50 
E REM LINE 50 

' THIS SEQUENCE IS INEFFICIENT WITH 
'SYSTEMS, FOR WHICH DELETE LINE 90 
AND CHANGE 100 TO. . . 

100 INPUT#-1,LCK1,1),L(K1,2),L(K1,3), 
L(K1,4),L(K1,5) LCK1,40 



CASSETTE 



' NUMBER BRAWN WEEKLY 
' LAST WEEK' S NUMBERS 
FOR CASSETTE CHANGE TO 

INPUT*- 1, WC1 ),W(2),WC3) to WC6) 

DELETE LINES 120, 140 AND 150 



*) 



NUMBER DRAWN WEEKLY 



130 

AND 
140 NEXT 
150 CLOSE 
160 CLS 
170 F0RK=1T06 
180 IFK=1GOTO230 
190 CLS 

208 FORL=lTOK-l 
210 PRINT"#"L". . . 'X(L) 
220 NEXT 

230 PRINT"MARBLE #"K; : INPUT" NUMBER WAS ";X(K) 
240 NEXT 
250 CLS 

260 PRINT-UPDATING DATA" 

270 F0RK1 = 1T06 ' NUMBER DRAWN WEEKLY 

280 F0RK2=1T06 ' NUMBER DRAWN WEEKLY. 

290 L(W(K1),X(K2))=L(W(K1),X(K2))+1 
300 NEXT 
310 NEXT 
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320 F0RK3=1T06:W(K3)=X(K3):NEXT:G0T0163 'USE THIS LINE ONLY WHILE BUILDING 

UP YOUR DATA EASE 

330 FORKK=1TO40:U(8,KK)=KK:NEXT 

340 F0RK1=1T06 

3S0 FORK2=1TO40 

360 U( 1 , K2 )=U( 1 , K2 )+L( X( Kl) , K2 ) 

370 NEXT 

380 NEXT 

330 F0RK1 = 1T033 ' INEFFICIENT OLD BUBBLE-SORT STARTS HERE 

400 F=K1 

410 FORK2=K1+1TO40 

420 IFUC 1,K2)>U( 1,P)THENP=K2 

430 NEXT 

440 IFP< >K1THENUU=U( 0, P ) : 

U(0,P)=U(0,K1 ): 

UC0.K1 )=UU: 

W=UC1,P): 

UC1,P)=U( 1,K1 ): 

U( 1,K1)=UU 
450 NEXT 

4G0 INPUT "HOW MANY (A) MOST PREDICTED 
AND 

HOW MANY (B) LEAST PREDICTED A , B ";A,B 
470 T=A+B 
480 CLS 

430 PRINT"MOST PREDICTED GROUP..." 

500 FORK1=1TOA:PRINTUC0,K1 ), : S=S+1 : Z( S )=UC 0, Kl ) : NEXT 
510 PRINT 

520 PRINT'LEAST PREDICTED GROUP. . . " 

530 FORK2=40TO41 -BSTEP-1 : PRINTUC 0, K2 ) , : S=S+1 : 2( S )=U( , K2 ) : NEXT 
540 PRINT 

550 INPUT"HOW MANY NUMBERS PER ENTRY?" ; TN 
560 IFTN>T GOTO550 
570 INPUT"HOW MANY ENTRIES" ; TE 
580 CLS 

530 PRINT"STAND BY. . . " 
600 DIMR(TN) 
610 F0RK1=1T0TE 
620 F0RK2=1T0TN 
630 R(K2)=RND(T) 
640 IFK201 

F0RK3=1T0K2-1: 

IFR( K3 )=R( K2 )GOTO630 
650 NEXT 
B60 NEXT 

670 F0RK2=1T0TN:PRINTZ(RCK2)); : NEXT: PRINT" " , 

680 NEXT 

630 OPEN-0°,i, -LOTTO/TXT":' FOR CASSETTE USE CHANGE TO 

630 INPUT "READY CASSETTE " ; DS 
700 FORK 1=1 TO40 

710 FORK2=1TO40:' SEE REM ON LINE 750 
720 PRINT#1,LCK1,K2) 
730 NEXT 
740 NEXT 

750 F0RK1=1T06 'CASSETTE USERS ARE DIRECTED TO STUDY 
7S0 PRINT#1,X(K1) 'REM FOR LINES 120 THRU 140 
770 NEXT 

780 PRINT "RUN ENDED " 
738 RESUME630 ' ERROR TRAP 

THIS CREATES A DATA FILE ON YOUR FIRST 
PASS THROUGH THE PROGRAM 
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TRIANGLE KEITH NEIGHBOUR 

Given any combination of three known values of the sides and angles of any triangle, 
the other three values are determined by this program. (The case of three given 
angles does not provide a valid solution, of course.) 

A triangle is displayed on the screen purely as a diagram to prompt the correct 
inputting of the given values, and also to identify the answers with the remaining 
appropriate sides and/or angles. 

Input prompting is clockwise on the diagram and the computer will ask for each of 
the six possible values in turn, identifying the position on the triangle by "??" 
with each request. 

When the request is for the value of a side or an angle which is not known (one of 
the required answers) hit ENTER to receive the next prompt. 

It does not matter if you allot an obtuse angle (greater than 90 ) to a position 
shown on the diagram as an acute angle (less than 90 ) , or a short side to a 
diagramatic long side, or vice versa. 
The correct relative positions of the input data is the only important factor. 

You cannot input more than three lots of data, as the execution program will 
automatically take off after the third input. However if you input less than 
three values in a complete cycle of prompts you will be told to start again. 

Whilst the display triangle is diagramatic (i.e. not to angular or dimensional 
scale for a particular case) , it will automatically be re-drawn if necessary to 
conform to a correct short side to long side relationship (left and right sides). 
There is a reason for this apart from making it look a little more correct, which 
is explained later. 

There are five possible combinations of three given values to solve any triangle. 
These are: 

(1) Three sides, 

(2) Two Angles and the included Side, 

(3) One Side and the following (clockwise) two Angles, 

(4) Two Sides and the included Angle, 

(5) Two Sides and an adjacent Angle. 

Combination (5) is a special case and is the main reason for re-drawing the long 
and short sides where appropriate. For this particular combination there are two 
possible solutions in some cases. You needn't worry about it, as the computer 
will recognize these special cases when they occur, and will answer and draw both 
solutions. 

Also for combination 5 the given input angle must be alloted to either the left or 
right base angle (not the apex) , and the two given sides must be allocated to their 
correct positions relative to the base angle used. In other words the base in the 
diagram cannot be regarded as one of the two given sides. 

However for combinations (1) , (2) , (3)or (4) there is no restriction. That is, there 
are three configurations for fitting any one given set of these combinations on the 
diagramatic triangle (rotating the same relative positions around the triangle) and itj 
does not matter which one you use. 

When the answers are displayed against the diagram, all angles are identified by an 
askerisk (*) before their values. All angles are input and answered in Degrees 
(not radians) 

(Calculations are Single Precision or Double Precision selectable.) 



- 
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13 ' * TRIANGLE « 

BY KEITH NEIGHBOUR 
28 CLS.-CLEAR 280: F1=0: F3=0: F-4-1: DEFINT C-H.J.Z 
30 P1S=" 101010" :Q1$=" 110001" : Q2S= "01 1100- :Q3S= "000111" 
40 R1S=" 110100" : R25= " 081 101 ":R3$=" 010011" 
50 T1S= "111000" :T2S="0011 10": T3S=" 180011" 
63 U13="101100":U4S="101001- 

65 M0$="CFOR DEG,MINS,SECS HIT ' M' (USE FORMAT D/MM/SS ) ELSE HIT ENTER)" 
70 R1=57.29573:PI=3.141533:B23=STRING$C7, 128) 
83 GOSUB 230 : GOSUB 800 

33 PRINT@0, "ENTER DATA (3 ONLY) CLOCKWISE AS PER ??. FOR NO DATA HIT ENTER"; 
133 A1=0:A2=0:A3=3:P=8:Q=0:R=0:D=0:B$=STRINGSCS3, 128 ) : B1S=STRINGSC 10, 128) 
182 PRINT@396, "FOR DOUBLE PRECISION HIT * D' ELSE HIT ANY OTHER KEY";:C$="" 
103 CS=INKEY$: IF CS="":GOTO 103 

184 IF C$="D" THEN F5=1:PS="C D. P. ) " : DEFDBL A, K, L, M, P, Q, R, S, T, X: Rl=57. 2957795130 
8232: PI=3. 14159265358979323: XS=PI/2: GOTO 106 

105 PS="( S.P. )":DEFSNG A, K, L, M, P, Q, R, S, T, X 

106 PRINT@896,B$; : PRINT@>184, P$; : PRINT@S96, MBS; 

107 MSS=INKEYS: IF MSS="" GOTO 107 

110 S1=0:PRINT@463, "??";: PRINT@896, BS; : PRINT@3SG, "8IDE SI";: INPUT SI: IF S1=0 THE 

N AS="0":GOTO 120 ELSE FRINT@468, B2S; : PRINT@4G0, CSNGC SI ) ; : AS= " 1 " : D=D+1 

128 A0$="":PRINT@294 > "??-;:PRINT@SS6,BS;:PRINT@896, "ANGLE Al";: INPUT A8S:IF A03- 

THEN A1=0 :AS=AS+"0":GOTO 130 ELSE PRINT@291 , B2S; : GOSUB 5083: A1=A0: PRINT@291 
CSNGC Al ); :AS=A$+"1":D=D+1 

130 S2=0:PRINT@503,-??-;:PRINT@396,BS; : PRINT@960, B$; : PRINT@896, "SIDE S2 ";: INPUT 
S2:IF S2=3 THEN AS=AS+"0" ."GOTO 150 ELSE PRINT@500, B2S; : FRINT@500, C5NGC S2 ) ; : A$=A 
S+-1" :D=D+1 

140 IF D=3 THEN AS=A$+ " 888 ": GOTO 250 

150 A0«="":PRINT@819,-??-;:PRINT@896,BS;:PRINT@896," ANGLE A2";: INPUT A0$:IF A05= 
THEN A2=0: AS=AS+"0" : GOTO 170 ELSE PRINT@316, B2S; : GOSUB 5000: A2=A0: PRTNT@816 
, CSNGC A2); :AS=AS+"1" : D=D+1 
160 IF D=3 THEN AS=A5+"00" : GOTO 250 

170 53=0:PRINT@737,-??";:PRINT@89G,BS;:PRINT@89S,"SIDE S3";: INPUT S3: IF S3=8 THE 
N AS=AS+"0-:GOTO 190 ELSE PRINT@794, B2S; : PRINT@794, CSNGC S3 );: A$=AS+ " 1 " : D=D+1 
180 IF D=3 THEN A$=AS+°0" : GOTO 258 

198 A3=0:PRINT(s>780, "??";: PRINT^89S, BS; :PRINT@S9G, "ANGLE A3-;:INPUT A3:IF A0S="" 
THEN A3=0:AS=AS+"0":GOTO 200 ELSE PRINT@777, B2S; : GOSUB 5800: A3=A0: PRINT©777 CSN 
GCA3); : AS=A$+-1- :D=D+1 

200 IF D<3 THEN PRINT@B96, BS; : PRINT@896, "NOT ENOUGH DATA. HIT ENTER TO START AGA 

IN" ; :GOTO 220 

210 GOTO 250 

228 INPUT 2: GOTO 20 

230 Jl=39: J2=41 : H=3: U=65: C0=176: Cl = 140: C2=131 : C3=139 : C4=180: C5=130 : CS=173: C7=144 
: El=460 : E2=291 : E3=503 : E4=542 : RETURN 

240 J1=23:J2=22:H=-3:U=G2:C0=131:C1=140:C2=176:C3=184:C4=135:C5=1G0:CS=158:C7=12 
9: El=451 : E2=276: E3=492: E4=537 : RETURN 

258 PRINT#0,B«;:IF F5=l THEN PRINTSS96,- COMPUTING IN DOU 

BLE PRECISION" ; 

255 A1=A1/R1:A2=A2/R1: A3=A3/R1 

260 IF AS=P1S THEN K=S1 : L=S2: M=S3: GOSUB 620 : A3=P: A2=R: Ai=Q: GOTO 430 

270 IF AS=Q1S THEN K=S1 : P=A3: Q=A1 : GOSUB 678 : A2=R: S2=L: S3=M: GOTO 430 

280 IF A$=Q2S THEN K=S2: P=Ai : Q=A2: GOSUB S70 : A3=R: S3=L: S1=M: GOTO 438 

290 IF AS=Q3$ THEN K=S3: P=A2: Q=A3: GOSUB 670 : A1=R: S1=L: S2=M: GOTO 430 

300 IF AS=R1S THEN K=S1 :Q=A1 : R=A2: GOSUB 710 :A3=P:G0SUB 680 : S2=L: S3=M: GOTO 43 



310 IF AS=R23 THEN K=S2: Q=A2: R=A3: GOSUB 710 :A1=P: GOSUB 688 : S3=L : S1=M: GOTO 43 
8 



: 
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328 IF R3=R33 THEN K=S3: Q=R3: R=R1 : GOSUB 710 :fl2=P:G0SUB 689 : S1=L: S2=M: GOTO 43 



330 IF RS=T1S THEN K=S1 : L=S2: Q=R1 : GOSUB 730 :S3=M: GOSUB 620 : R2=R: R3=P: GOTO 43 



340 IF RS=T2S THEN K=S2: L=S3: Q=R2: GOSUB 730 :S1=M:G0SUB G20 : R1=P: R3=R: GOTO 43 



350 IF RS=T3$ THEN K=S3: L=S1 : Q=R3: GOSUB 730 :S2=M: GOSUB S20 : Ri=R: R2=P: GOTO 43 



3S0 IF RS=U1S THEN K=S1 : L=S2: R=R2: GOSUB 750 : R3=P: fll=Q: GOSUB 670 : S3=M: F2=0 : GO 

TO 3S0 

370 IF R$=U4S THEN K=S2: L=S1 : R=R3: GOSUB 750 : R2=P: fii=Q: GOSUB 670 : S3=M: F2=i : GO 

TO 380 

380 IF L=<K GOTO 430 ELSE GOTO 400 

330 IF L=<K GOTO 430 

400 P1=PI-P:Q1=P-R:Q2=Q:Q=Q1:M2=M:G0SUB 730 : M1=M: M=M2: Q=02: IF F2=l GOTO 420 

410 J3=23: 01=65: H1=-3:B0=137:D1=144:D2=130:D3=164:D4=135:D5=15G:E5=87:F1=1: GOTO 

430 

420 J3=40 : 01=63 : Hl=3 : D0=160:D1=134:D2=152:D3=129:D4= 172 :D5= 133 :E5=104:F3=1: GOT ■ 

430 

430 IF 52>S1 THEN CLS: GOSUB 240 : GOSUB 800 

440 IF F3=l GOSUB 970 

450 PRINT@39S,BS; : PRINT@794, BIS; 

463 PRINT@E1,B2S; : PRINT@E3, B23; : PRINT@322, B2S; : PRINT@E2, B2S; :PRINT@815, B2S; : PR m 

T@777,E2S; 

470 PRINTSE1, CSNGC SI >5 : PRINT@E3, CSNGC S2 ) ; : PRINT@S22, CSNGC S3 ) ; 

480 R1=R1*R1:R2=R2*R1:R3=R3*R1 

490 PRINT@E2, CSNGC Rl ); : PRINT@815, CSNG( R2 ) ; : PRINT@777, CSNGC R3 ) ; :PRINT@E2, "*"; :, I 

NT@815, ■*" ; :PRINT@777, "*" ; 

500 IF F3=l GOSUB 590 

510 IF Fl=l GOSUB 560 

515 IF F5=l THEN X=P: GOSUB 10090 : P2=X2 ELSE P2=SINCP) 

520 fl=CK*M*P2)/2:FRIMT®E4, "R=" ; CSNGC fl); 

530 PRINT@972,°C FOR FURTHER EXERCISES HIT RNY KEY )"; 

540 IF INKEY*="" GOTO 540 

550 GOTO 20 

560 PRINT@287, CSNGC Q1*R1 ); :PRINT@93S, "OR " ; CSNGC Ml ); : PRINT@744, CSNGC P1*R1 ) ; 

570 PRINT@287, "*" ; :PRINT@744, "** ; 

580 GOSUB 615:R0=CK*Mi*P3)/2:PRINT@678, "R=" ; CSNGC R0 ) ; : RETURN 

530 PRINT@157, CSNGC Q1*R1 );: PRINT@901 , CSNGC Ml ); :PRINT@917, "OR" ; 

600 PR I'NT@786, CSNGC P1*R1); : PRINT® 157, "*'; : PRINT@78S, *»"; 

610 GOSUB 615:R0=CK*M1*P3)/2:PRINT@6S6, "fl=" ; CSNGC R0 ) ; : RETURN 

615 IF F5=l THEN X=P1: GOSUB 10030:P3=X2 ELSE P3=SINC PI ): RETURN 

620 IF F5=l GOTO 4000 EL5E T=CK+L+M)/2 

630 IF P=0 THEN X=SQRC T*C T-D/C K*M )): GOSUB 780 : P=2*X 

640 IF R=0 THEN X=SQRC T*C T-K )/C L*M )): GOSUB 780 :R=2*X 

650 IF Q=0 THEN X=-COSC P+R ): GOSUB 780 : Q=X 

660 RETURN 

670 IF F5=l GOTO 4050 ELSE X=-COSC P+Q ): GOSUB 780 : R=X 

680 L=K«SINCP)/SINCR) 

630 M=K*COSCP)+L*COSCR) 

700 RETURN 

710 IF FS=1 GOTO 4090 ELSE X=-COSC Q+R ): GOSUB 780 : P=X 

720 RETURN 

730 IF F5=l GOTO 4120 ELSE M=SQRC KC2+Li:2-2*K*L*C0SC Q ) ) 

740 RETURN 

750 IF F5=l GOTO 4140 ELSE X=L/K*SINC R ): GOSUB 730 : P=X 

760 X=-COSCR+P): GOSUB 780 : Q=X 

770 RETURN 



f 
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780 IF -X*X+1<0 GOTO I860 ELSE X=( -RTNC X/SQRC -X*X+1 ) ) + l . 5738 ): RETURN 

793 IF -X*X+1<0 GOTO 1060 ELSE X=ATNC X/SQRC -X*X+1 )): RETURN 

883 FOR N=l TO 12 

810 N1=N*64+-J1 

823 PRINT@N1 , CHRSC C0 ) ; CHRSC CI ) ; CHRSC C2 ) ; 

838 J1=J1-H 

843 NEXT N 

850 FOR N=l TO 12 STEP 2 

883 N1=N*S4+J2 

373 PRINTd<Nl, CHRSC C3); CHRSC C4); 

880 PRINT@N1+U, CHRSC C5 ) ; CHRSC C6 ) S CHRSC C7 ) ; 

333 J2=J2+H 

330 NEXT N 

310 FOR N=837 TO 891 

320 PRINT@N, CHRSC 131 ); 

330 NEXT N 

340 IF Fl-1 GOTO 370 

350 IF F4=l THEN F4=0:GOSUB 1050 

383 RETURN 

373 FOR N=l TO 12 STEP 2 

383 N1=M*64-HJ3 

933 PRINT@N1, CHRSC B3); CHRSC Dl ); 

1000 PRINT@N1+U1 , CHRSC D2 ) ; CHRSC D5 ) ; 

1010 J3=J3-H1 

1020 NEXT N 

1030 PRINT@E5 , CHRSC D4 ) ; CHRSC DS ) ; 

1040 RETURN 

1050 PRINT@ 4S0, "SI" ; :PRINT@291, "Al"; :PRINT@500, - S2" ; :PRINT@816, "A2"; :PRINT®794, 

■S3 - ; :PRINT@777, "A3"; : RETURN 

1060 PRINT@S96,BS; :PRINT@SS6, "IMPOSSIBLE ! HIT ENTER TO START AGAIN "} 

: INPUT Z:GOTO 20 

4003 T=CK+L+M)/2 

4010 IF P=0 THEN X=T*CT-L)/CK*M): GOSUB 10130: X=X3: GOSUB 4200:P=2*X 

4020 IF R=0 THEN X=T*C T-K )/( L*M ): GOSUB 10190: X=X3: GOSUB 4200:R=2*X 

4830 IF Q=0 THEN X=P+R: GOSUB 10080: X=-X2: GOSUB 4200: Q=X 

4040 RETURN 

4050 X=P+Q: GOSUB 10060: X=-X2: GOSUB 4200: R=X 

4060 X=P: GOSUB 10398: X5=X2: X=R: GOSUB 10090: XS=X2: L=K*XS/X6 

4070 X=P:G09UB 10080: X5=X2: X=R: GOSUB 10080: X6=X2: M=K*X5+L*X5 

4080 RETURN 

4090 X=Q+R: GOSUB 10080: X=-X2: GOSUB 4230: P=X 

4100 RETURN 

4120 X=Q:GOSUB 10080: M=K»K+L*L-2*K*L*X2: X=M: GOSUB 10190:M=X3 

4133 RETURN 

4148 X=R: GOSUB 10090: X=L/K*X2: GOSUB 4210: P=X 

4150 X=R+P:GOSUB 10383: X=-X2: GOSUB 4200:Q=X 

4183 RETURN 

4238 IF -X«X+1<8 GOTO 1868 ELSE X5=X: X=-X*X+1 : GOSUB 13130: X=X5/X3: GOSUB 18140:X= 

X3-X2: RETURN 

4210 IF -X*X+1<0 GOTO 1060 ELSE X5=X: X=-X*X+1 : GOSUB 10190: X=X5/X3: GOSUB 10140:X= 

X2: RETURN 

5000 IF MSSO'M" THEN R0=UALC A0S ): RETURN ELSE N2=LENC A0S ) : D6=N2-6 

5020 D$=LEFTSC A0S, D6) 

5030 MS=MIDSCA0S,B6+2,2) 

5040 S$=RIGHT3C A0S.2) 

50S0 A0=UALC BS )+UALC MS )/60+UALC SS )/3600: RETURN 

10080 X=X9-X 
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10090 G0=0 : G2=SGNC X ) : X2=X3+XS : X=fiBS( X ) : X=X- INTC X/( X2+X2 ) ) *( X2+X2 ) : IFX >X2THENX=X - 

X2:G2=-G2 

10100 IFX>X3THENX=X2-X 

10110 IFflBSC X K . 0G3THEN10120E!_SEX=X/3 : G0=G0+1 : GOTO101 10 

10120 X2=-X*X:X2=C((X2/42+l)*X2/20+l)*X2,'6+l)*X:IFG0=0THEN10130ELSEFORG=lTOG0:X2 
=( 3-4*X2*X2 )*X2: NEXT 

10130 X2=X2*G2: RETURN 

10140 G0=0: G1=0: G2=3GN( X ) : X=RBS( X ) : IFX>1X=1-"X: Gl = l 

10150 IFX< . 077THEN10160ELSEX2=X:X=X*X+1 : GOSUE10130: X=X2/( X3 + 1 ) : G0=G0-h1 : GOTO101S0 

10160 X3=X:G3=-11:GOSUB10200:IFG0=0THEN10170ELSEFORG=1TOG0:X=X+X:NEXT 

10170 X2=X:IF Gl=l X2=X3-X2 

10180 X2=X2*G2 : RETURN 

10130 X3=SQR( X ) : X3=< X3+X/X3 )/2 : X3=( X3+X/X3 V2 : RETURN 

10200 X2=X*X: F0RG=3T0RBS( G3 )STEP2: X3=SGNC G3 )*X3*X2: X=X+X2-'G: NEXT: RETURN 

1 ' ***** THE WORLD - LEUEL II ***** 

10 ' *** COPYRIGHT MICRO-80 - 1980 

30 DRTR-31, 84, 72, 69, -1 , 87, 73, 32, 76, 68, -33, 140, 143, 175, 131 , 131 , 109, 18S, 188, 188, 17i 

6, 176, 176, 176, 144, -4, 131, 187, 191 , 191 , 191 , 191 , 135, -16, 176, 176, 176, -22, 160 

40 DRTR131 , 191 , 191 , 191 , 191 , 191 , 133, 147, 131, 176, 176, 176,-3, 138, 135, 131 , 129, -5, 160 

, 176, 156, 188, 138, 139, 176, 176, 176, 184, 190, 191, 191, 191 , 191 , 191, 191, 131 

50 DATfliSl, 191 , 191, 191, 191, 199, 183, 188, 188, 188, 180, -7, 160, 134, 131 , 131 , 131 , 131 , 13 

1, 191, 131, 131, 131 , 191 , 191 , 147, 131 , 129, -8, 136, 136, 133, 160, 187, 173, 177 

60 DflTfll88, 191, 191, 191, 191, 131, 191, 191, 131, 131, 131, 131, 131, 131,131,131,131,131,1 

91, 131, 191, 133, 177, -1,138, 132, -7,162, 191, 191, 191, 191 , 191 , 191 , 191 , 159 

70 DRTR143, 131 ,129,-12, 168, 188, 159, 131 , 139, 163, 175, 191, 133, 179, 187, 131 , 151 , 171 , 1 

83,191,191,191,191,191, 191,191,191,191,131,191,191,191,191,159,133,164 

80 DRTR-3, 138, 170, 131 , 151 , 123, -2, 143, -15, 176, 183, 183, 188, 188, 180, 176, 176, 176, 179 

,173,191,131,131,172,131,191,191,191,191, 191,131,191,191,191,191,191,191 

90 DRTR183, 173, 129, 136, 143, 132,-9, 131 , 131, 143, 131,-2, 131 , 130, -12, 131 , 131 , 131, 131 

, 191, 191, 131,131, 191, 131, 191, 189, 154, 175, 191, 188, 191 , 131 , 131 , 143, 175,191 

100 DRTR191 , 159, 143, 191 , 131 , 191 , 191, 191, 135, -17, 131 , 187, 131 , 131 , 131 , 189, 188, 144, 

-8, 133, 143, 143, 143, 143, 191 , 191 , 19i -,"191 , 191 , 191 , 131 , 131 , 183, 131 ,143, -4, 133 

110 DRTR191, 143, -2, 130, 171, 175,157, -2, 138,-16, 133, 131 , 131 , 191 , 191 , 191 , 191 , 191 , 18 

8, 188, 130, -10, 170, 191, 191, 191, 191,191, 191 , 159, 135, 123, -11, 130, 133, -1, 176 

120 DRTR183,- 1,131, 123, -15, 130, 139, 191, 191, 191, 191, 191, 191, 191,-12,190,131,131,1 

91, 191 , 191 , 149, -1, 176, -19, 130, 139, 141 , 180, -13, 175, 191, 191 , 191 , 153, 131 , -13, 133 | 

130 DRTR131, 131, 131, 143, -2, 138, 123, -14, 176, 176, 184, 188, 130, 191, 184, 191,-14, 170, 1^ 

91,153, 142, -16, 131, 131, -13, 168, 131, 191, 191, 131, 131, 131, 191, 191, 143, -13, 130: DRTfil 

75,131, 144,-37,131,131,-2,131,143,143,135,123, -2,160,-57,131,-2,140,140, 140,131, 

123 

140 ONERRORGOTO160:CLS:M=15360:POKE16553, 255: RESTORE 
150 RERDR: IFR<0THENM=M-R: GOTO150ELSEPOKEM , R: M=M+1 : GOTO150 
160 IFERR=6THENRESUME17SELSEONERRORGOTO0 
170 GOTO170 



** SOLVER 4 FOR 16K MACHINES ** 
Bob Sunners sent us a program called Solver which simulates the TI PROGRAMMER 
calculator and does much more besides. He also provided us with a simplified 
version which fits in 4K and the same version with high line numbers so that 
it can be co-resident with other BASIC programs. Bob's documentation was 
first class and an example to us all. We have, therefore, included it 
exactly as he presented it to us. 



< 
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The smaller version of SOLVER, this program is compatible with 4K 
computers as a sole program, or with 16K+ computers as a co-resident 
program for ready access during programming operations on a separate 
subject. 

For the 4K operator S0LVA4 will occupy the entire memory, and can carry 
out the following functions - 

* Perform arithmetic in either decimal or hexadecimal. 

* Signed floating point arithmetic in decimal for normal 
calculator operations. 

* Conversion of integers between decimal and hexadecimal . 

* Parenthesis - available at up to 10 processing levels 
to allow you to dictate the order of operation of a 
mathematical sequence. 

* Display format - the screen will display the following 
information - 







X DEC 


H HEX 


SPACE 


Q QUIT 






( OPEN 


) CLOS 


/ DIV 


* MULT 


+ ADD 


- SUBT 


= EQU 


> SUBT 


0000 


1 0001 


Z 0010 


3 0011 


4 0100 


5 0101 


6 0110 


7 0111 


8 1000 


9 1001 


A 1010 


B 1011 


C 1100 


D 1101 


E 1110 


F 1111 



DECI 

The top four lines indicate the keys to be used in the calculations. 
Line 5 indicates the current base mode. 

X DEC : Converts base to Decimal. Decimal mode is default 

condition on power-up. 

H HEX : Converts latest displayed figure or total to 

Hexadecimal. Shows value as negative if decimal 
integer is negative. 

SPACE : Clears entered calculations and returns calculator 

to 'Ready' state. 

: Ends program and returns computer to 'Ready'. 

: Not indicated on display. Left arrow will backspace 
over an incorrect numeric entry. Has no effect if 
pressed after an operand entry. 

: Opens up to 10 levels of parenthesis to isolate 
expressions for execution in a desired sequence. 

: Closes parenthesis. All calculations on that level 
will be performed before the next entry is made. 
If left off before "=" is entered, levels will 
automatically be correctly closed. 

/ DIV : Divides the current subtotal by the next entered value 

* MULT : Multiplies the current subtotal by the next entered 

value 

+ ADD : Adds the current subtotal to the next entered value. 



Q QUIT 


<r 


( OPEN 


) CLOS 
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- SUB : Subtracts the next entered value from the current 

subtotal . 

= EQU : Completes all previously entered operations and 

displays the result. 

> SUBT : Displays the current subtotal without affecting the 

calculations. 

to F : Numerical value keys - only keys - 9 will function 

in the Decimal base. 

Adjacent to each number is the binary value of that 
number in the Hexadecimal base. Logical AND, OR, 
NOT, ONE'S AND TWO'S COMPLEMENT AND SHIFTS can be 
performed easily on paper from any Hex results 
displayed. Hex to Binary or reverse can be quickly 
calculated on paper from these displays. 
Note that totals are stored as double precision 
decimal floating point signed numbers and that 
conversion to HEX integers does not affect the 
re-converted results in DEC. 

Additional features of this programme are graphics 
characters representing HEX or DEC which are inserted 
automatically into the calculation chain display to 
provide visual recognition of the point at which 
conversion occurred. 

The first entry must be positive. A negative first entry is possible by 
entering "0", "-" in sequence. 

If an incorrect entry is made, pressing the left-arrow (backspace) key 
before any symbol key clears the incorrect number without affecting any 
calculations in progress. 

When an unwanted "+" or "-" or "*" or "/" key is pressed, simply press the 
correct key and continue. 

Conversions are straight forward: 

Example: 328 10 = ? 1C 

Enter Display 

X 

328 328 

H >148< 

Means 328, = 148 , e 

Arithmetic operations may be combined with conversions: 

Example: FA 1C + 73, = ?„ 

Enter Display 

H 

FA FA 

X >250< 

+73 +73 

323 
H >143< 

Means FA lr + 73 = 143, 






1 



Pressing any number key following the "=" key will add that number to 
the resulting answer. To recommence new calculations after the "=" 
key, the SPACE key must first be used. 
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SOLVER 16K 



This larger version of S0LVA4, apart from its many extra functions, 
differs slightly from the S0LVA4 operations. 



SHIFT D 

SHIFT H 
SHIFT B 
SHIFT 



SHIFT M 



SHIFT P 



SHIFT R 



SHIFT K 



+ -*/-() 

@ +/- 






to F 



Q QUIT 
> SBTO 



Decimal base is 



Converts to Decimal base mode, 
default condition on power-up 

Converts to Hexadecimal mode. 

Converts to Binary mode. 



Converts to Octal mode. 

On conversion to each of these bases, the latest 
displayed value is redisplayed in the new mode. 
Operations can be carried on continuously from mode 
to mode. 

Clears previous memory content and loads the latest 
displayed figure into memory. 

Adds the latest displayed figure into memory. If 
latest display is a negative total, it adds this into 
memory as a negative value. 

Displays the memory total without affecting the 
contents of memory. Automatically converts the 
recalled amount to the current base. 

Stores a constant value and operand for repetitive 
use. After the constant and its operand are stored, 
the entry of any number followed by "=" automatically 
executes the operation stored by the K key. 
pressing SHIFT K a second time clears this function. 

Keys operate as with S0LVA4. 

Converts decimal values to opposite sign. When in any 
other base, pressing this key produces the Two's 
Complement value of any displayed figure or total. 

Operate as for S0LVA4. 

Values through 9 operate in Decimal. 
Values through F operate in Hexadecimal. 
Values through 7 operate in Octal. 
Values and 1 operate in Binary. 

Ends calculator program. 

Returns the current subtotal without affecting the 
calculations. 
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, REST 
4 BACK 

: l'S 



; OR 
& AND 

? XOR 
< SHFT 



SPACE 

' NEW FORMAT 



ERROR TRAPPING 



Restores the total of the previous cleared operation. 

Backspaces over the latest numerical entry. 
Has no effect if the last entry was an operand. 

One's Complement Key - instructs the program to 
immediately convert the displayed number to its 
one's complement. Equivalent to the logical NOT 
function. Operates in all bases. 

Or's the next entry with the current subtotal, 
operates in all bases. 

And's the next entry with the current subtotal. 
Operates in all bases. 

Xor's the next entry with the current subtotal. 
Operates in all bases. 

Perform a logical shift on the current subtotal. 

For a Left shift, enter "<" followed by a positive 
value indicating the number of zero bits to be 
added to the right of the binary value to be shifted. 

For a right shift, enter "<" followed by "-" and 
then a value indicating the number of bits to be 
truncated from the right of the target value. 

All shifts are carried out bit by bit and so only 
zeroes are added to the target value to perform a 
logical shift. 

Operates in all bases. 

Erases the display but does not erase the constant or 
memory functions. 

Converts the operation mode of the decimal display 
between 16 bits and unformatted modes. Z-80 or 16 bit 
format is the default mode on power-up, which displays 
decimal values and only carries out operations between 
-32768 and + 32767. 

An error- trapping routine is included which recognises 
any of the following entry mistakes, and indicates its 
recognition to the user by flashing the offending entry 
and automatically removing it from screen:- 



* 
* 



* 

* 



"/" entry followed by "0". 

")" entry followed by any number. 

"(" entry followed by an operation symbol other than 

"(" or ">". 

")" entry which would indicate closing of a lower 

level of parenthesis than has been opened by "(" 

entries. 

Operational symbol followed by ")". 

Entry of any symbol other than "(" or ">" at the 

commencement of a calculation. 
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OPERATING HINTS : Current totals and operations are stored and performed 

as signed floating point decimal values, which are 
converted to integer when changing bases from decimal. 

All values are stored and operated on as double 
precision. 

Parenthesis specify the order in which operations are 
to be carried out. Operations in higher levels are 
executed first and their results combined with the next 
lower level for execution. Pressing "=" before all 
closing parentheses are entered will not create an 
error - the program will execute each level from 
highest to lowest before displaying the results. 

This software has been tested and to my best knowledge performs accurately 
if operated as described above. Should any problems arise with the program 
please advise by letter stating the nature of the fault and the routine 
which led to the fault to: 

Robert A. Sunners, 
26 Suncroft Street 
Mt. Gravatt 4122 
Qld. 07 349 2598 



< 



S0000 REM#*##########**##*########*######*#######*#############*## 



S0LUR4 FOR 16K COMPUTERS. . 
CO ROBERT R SUNNERS 1380 
26 SUNCROFT ST MT GRRURTT 
4122 BRISBRNE 07 349 2538 



S0010 REM#############*##################################t######## 

S0020 PRINT@960,CHRS(31); :PRINT, "DO YOU REQUIRE FULL DISPLRY ( Y/N ) * ; : GOSUBG0030: 

IFPS= ■ N - THENPR=332 : PB=960 : GOSUBS0380 : GOTO60070ELSEB0040 

60030 PS=INKEYS: IFPS=" "THEN60030ELSERETURN 

60040 CLS:PRINT@23 ( "* S L U R 4 * " : PR=576: PS=360: GOSUBG0380: PLS= " 

60050 PRINT@640, ■ ' ; :PRINT, -X DEC. H HEX. SPRCE Q QUIT",,"( OPEN" ; PLS ; " ) CLOS 

";PLS;"/ DIU. " ;PLS; "* MULT" ; ; PLS; "+ RDD. " ; PLS; " - SUB.";PLS;"= EQU.";PLS;"> SUBT" 

60060 PRINT"0 0000 1 0001 2 0010 3 0011 4 0100 5 0101 6 0110 7 0111 8 10 

00 3 1001 R 1010 B 1011 C 1100 D 1101 E 1110 F 1111" 

60070 CLERR200:DEFDBLQ:CR$="012345G783RBCDEF" :PRINT@98S, " DECI ";:FP=1 

60080 PRS=STRINGS(58, " " ):PIS="° :PS=" " : PRINT@833 , PRS; : FORX=0TOFL: PI ( X )=0: FF( X )=0 

: FL( X )=0: QT( X )=0: NEXT : FL=0: FQ=1 : FR=1 : FI = 1 
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G0090 REM INPUT SEQUENCE 

60100 PS=INKEYS: IFPS=" "THENG0100ELSEIFFP< >1RNDPS=" . "THEN60100ELSEIFPS="Q"THENCLS 

:END 

60110 IFFP=1RNDRSCCP$)>62RNDPS< >-H"RNDPS< >"X"THEN60100 

60120 IFC PS= * . " )ORC RSCC PS ) >47RNDRSCC PS KS8 )OR( RSCC PS ) >64RNDRSCC PS )<71 )THENPIS=PI 

S+PS : IFFR=1THENP$= " + " +PS : GOSUB60300 : Ffl=0 : GOTO60100ELSEGOSUB60300 : GOTO60100 

60130 IFPS=CHRS( 32 )THEN60080ELSEIFP$=CHRS( 8 )THENPRS=STRINGS( LEN( PIS ) , * " )+LEFTS( 

PRS,LEN(PRS)-LEN(PIS) ):PIS=" ' : PRINT@899, PRS; :GOTO60100 

60140 IFPS= " X " ORPS= " H" THEN60320 : GOTO60100 

60150 IFP$<>' = , RNDP$< >" + "RNDPS< >"-"RNDPS< > " * " RNDPSO " / " RNDPSO ' C "RNDPSO" )"RNDPS 

< >" >"THENPIS="" :GOTO60100ELSEGOSUB60300 

601G0 REM SELECT URLUE 

60170 Ffl=0:IFPS="( -THEN60210ELSEIF( PIS=" * )THENG0200ELSEIFFP>1THENFS=FP: FD=1 : PNS=| 

PIS : GOSUB60420 : PI ( FL )=VALC PNS )ELSEPIC FL )=URL( PIS ) 

60180 REM CALCULATIONS 

60130 IFFFC FL )=0ANDQTC FL )=0THENQTCFL )=QTC FL )+PIC FL )ELSEIFFFC FL ) = 1THENQT( FL )=QT( f| 

L )/PI( FL )ELSEIFFFC FL )=2THENQT( FL )=QTC FL )*PIC FL )ELSEIFFFC FL )=3THENQTC FL )=QTC FL )+p| 

K FL )ELSEIFFF( FL )=4THENQT( FL )=QTC FL )-PIC FL ) 

60200 FF(FL)=0:PIS=" " : IFPS="/ "THENFFC FL ) = 1 : GOTO60100ELSEIFPS="* "THENFF( FL )=2: G0T| 

O60100ELSEIFPS= " + " THENFFC FL )=3 : GOTOB0100ELSEIFPS= " - * THENFFC FL )=4 : GOTO60100 

60210 IFP$= ■ ( " THENPIS= ' " : IFQTC FL ) >0THENFL( FL )=1 : FL=FL+1 : GOTO60100ELSEFL=FL+1 : G^> I 

060100 

60220 GOSUB60410:IFFP=2THENFS=l:FD=2:GOSUB60420 

G0230 PTS=PNS : IFFI=- 1THENPTS= " - " +PTS 

60240 IFPS= * > " THENPS=PT$+ " < " : GOSUB60300 : GOTOG0100 

60250 REM EQURLS OPERATION 

G02G0 IFPS=-=-THENIFFP=lTHENPTS=LEFTSCPTS, 1G ) 

60270 IFPS= ■ = " THENIFFL >0THENGOSUB60280 : PS= "-" : GOTO60190ELSEPS=PTS : GOSUBG0300 : FF( 

FL)=0:FR=1:GOTOG0100ELSEIFPS=- ) "THENGOSUBG0280: PS=" C " : GOTO60130ELSEIFPS=- C "THEN6 

0100 ■ 

60280 IFFL=0THEHRETURNELSEPIS= " " : FF( FL )=0: PI( FL )=0: FL( FL )=0: FL=FL- 1 : PI( FL )=QT( FL| 

+1 ) : QTC FL+1 )=0 : RETURN 

60290 REM DISPLRY OPERRTION 

60300 PflS=RIGHTS(PRS,LENCPR$)-LEN(PS) )+PS: PRINT@899, PRS; : IFPS=" "THENPS="0' :GOT0S| 

0300ELSERETURN 

60310 REM CHRNGE BRSE 

60320 IFPS='X-THENFQ=1:PS=CHRS(170):GO5UB60300:PRINT@989, " DECI " ; ELSEIFPS= "H"TH I 

ENFQ=2:PS=CHRS(1G2):GOSUBG0300:PRINT@989, " HEXR "; 

60330 IFFQ=FPTHEN60100ELSEIFFQ=1THENIFQT(FL)< >0THENGOSUBG0410: GOSUBG0350: PTS=PNM 

:PS= - >" :PI$=PNS:GOSUBG0300:FP=1:GOTO60240 ▼H 

G0340 IFQTC FL ) < >0THENFS= 1 ; FD=2 : GOSUBG041 : GOSUBG0420 : GOSUBG0350 : PTS=PNS : PS= " > " : P 

IS=PNS : GOSUB60300 : FP=2 : GOTOG0240ELSEFS=FP : FD=FQ : GOSUBG0400 : PNS=P IS : GOSUB60420 : GO 

SUBG0350 : PTS=PNS : PS= " > " : PI$=PNS : GOSUBG0300 : FP=FQ : GOTO60240 

60350 GOSUB60360 : IFFI=- 1THENPNS= • - * +PNS: RETURNELSERETURN 

60360 IFSGN(.QT( FL) )< >FITHENQT( FL ) = -QT( FL ) : RETURNELSERETURN 

60370 REM BRRW LINES 

60380 PRINT@PR,CHRS(31 ); :FORX=3TO60:PRINT@PR+X, CHRSC 140); : PRINT@PB+X, CHRSC 140);: 

NEXT: RETURN 

60390 REM REMOUE SIGN 

60400 IFLEFTSCPIS, 1 )=" - "THENPIS=RIGHTS( PIS, LEN( PIS )-l ): RETURNELSERETURN 

604 10 FI=SGN( QTC FL) ) : PNS=RIGHTSC STRSC QTC FL) ) , LENC STRSC QTC FL ) ) ) - 1 ) : RETURN 

60420 IFFS=FDTHENRETURNELSEIFFS=1THENGOSUBS0470: RETURNELSEGOSUBG0440: RETURN 

60430 REM HEX TO DEC 

60440 CD=0: CA=1 : FORX=lTOLENC PNS ) : CBS=MIDSC RIGHTSC PNS, X ) , 1 , 1 ) : IFCBS< * A" THENCB=URL 

C CBS ) : GOTOG0450ELSECB=ASCC CBS ) -55 

60450 CD=CB*CA+CD : CA=CA*1G: NEXT: PNS=RIGHTSC STRSC CD ) , LENC STRSC CD ) )-l ) : RETURN 

G04G0 REM DEC TO HEX 

60470 CRS= " " : CD=URLC PNS ) 

60480 CD=CD/16:CR=CCD-INTCCD) )*1G: CRS=MIDSC CRS, CR+1 , 1 )+CR$: CD=INTC CD ) : IFCD=0THEN 

PNS=CRS : RETURNELSE60480 
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***** NEXT MONTH' S ISSUE ***** 
We're sorry KBFIX mysteriously disappeared just before we went to press. We 
will publish it next month plus at least the following programs: 



BIG LETTERS (LI) 

Reproduce letters and words in a 4 
cm x 4 cm format. This program 
produces 3 | ines with up to B 
letters each. 

CONCENTRATION < L2 ) 

Inspired by those TU shows, in this 
game the screen displays a row of 
cards, facing away from you. You 
must .select (guess?) the 
identic^ cards to score. For 
2 pi aysr 3. 



RESISTOR CODES ( L2 ) 
If you ara like >j s 
difficulty remembering 
arsen or purple (or is 
then this is the program for 



tuo 
1 or 



and 


have 


whether 


S is 


it ye 1 


cw?) 



SPACE INVADERS (LI) 

Who said you couldn't write a Space 
Invaders game in Level 1. This 
version has all the aliens you 
could want and saves all those 20 
cents ! 

TANK BOTTLE ( L2 ) 

Drive your tank through the maze 
until you can get a clean shot at 
your opponent. 

SYS COPY (L2 ml ) 

This program loads machine language 
programs into your computer then 
displays the Start, End and Entry 
points so that ycu can punch out a 
copy using T BUG, £MON etc. 
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***** CASSETTE EDITION INDEX ***** 
Leuel I programs are on Side 1 (not suitable for System 80/Uideo Genie 
computers). Level II programs are on Side 2. Each program is recorded twice 

in success ion . 

APPROX. START POSITION 

I.D. CTR-41 CTR-80 SYS 80 



** SIDE 1 ** 
ESCAPEE 



THE WORLD 
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10 
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47 


33 
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80 


56 


160 
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70 



CUP 80 
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86 



** SIDE 2 ** 
THE WORLD 



CUP 80 



LOTTO PREDITOR 
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Plus all the usual articles, letters, news etc, 
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A SPECIAL OFFER! 



TO 
SUBSCRIBERS OF 





FOR THE FIRST TIME IN AUSTRALIA! 
GENUINE TANDY TRS-80 MICRO-COMPUTERS, 
HARDWARE AND SOFTWARE AT 

GREAT DISCOUNT PRICES!!! 



HOW TO ORDER - 

1. SELECT ITEMS FROM 1980 TANDY CATALOGUE 

2. DEDUCT 10% FROM ADVERTISED PRICES 

3. POST US YOUR ORDER STATING DESCRIPTION 
CAT. No AND A CHEQUE OR MONEY ORDER. 

WE WILL - 

1. ATTEND TO YOUR ORDER WITHIN 7 DAYS * 

2. SUPPLY GOODS SELECTED FREIGHT FREE ! 
SEND ADVERTISING REGULARLY TO KEEP 
YOU INFORMED OF CURRENT SPECIALS ! 

* subject to availability 



3. 




>4n 



to CONQUEST ELECTRONICS Pty. Ltd. 
212 Katoomba St. KATOOMBA 2780 



Please supply — 

OTY. CAT NO OESC. 



ADV. PRICE 



SUB TOTAL 
LESS1CW. 
FIND CHEQUE FOR TOTAL 



SEND FREIGHT FREE TO 

NAME 

ADDRESS 



..P/Code... 



CONQUEST ELECmONMX 



PTY. LTD. 



212 KATOOMBA ST KATOOMBA N.S.W. 2780 PHONE (047) 82 2491 
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LEVEL II ROM 
REFERENCE MANUAL 

by Edwin Paay 
Published by MICRO-80 PRODUCTS 

Written by Eddy Paay, the LEVEL II ROM REFERENCE MANUAL is the most 
complete explanation of the Level II BASIC interpreter ever published. 

Part 1 lists all the useful and usable ROM routines, describes their functions 
explains how to use them in your own machine language programs and notes the 
effect of each on the various Z 80 registers. 

Part 1 also details the contents of system RAM and shows you how to intercept 
BASIC routines as they pass through system RAM. With this knowledge, you can 
add your own commands to BASIC, for instance, or position BASIC programs in 
high memory— the only restriction is your own imagination! 

Part 2 gives detailed explanations of the processes used for arithmetical 
calculations, logical operations, data movements, etc. It also describes the various 
formats used for BASIC, SYSTEM and EDITOR/ASSEMBLER tapes. Each section 
is illustrated by sample programs which show you how you can use the ROM 
routines to speed up your machine language programs and reduce the amount of 
code you need to write. 

The LEVEL II ROM REFERENCE MANUAL is intended to be used by machine 
language programmers. It assumes a basic understanding of the Z 80 instruction 
set and some experience of Assembly Language programming. But BASIC 
programmers too will benefit from reading it. They will gain a much better insight 
into the functioning of the interpreter which should help them to write faster, more 
concise BASIC programs. 
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